рефераты конспекты курсовые дипломные лекции шпоры

Раздел Программирование
/
Procedure TForm1.CopyButtonClick(Sender: TObject); var

Реферат Курсовая Конспект

Выберите учебное заведение

Procedure TForm1.CopyButtonClick(Sender: TObject); var

Procedure TForm1.CopyButtonClick(Sender: TObject); var - раздел Программирование, Буфер обмена и стандартные компоненты Delphi Lineclipboard:tlineclipboard; Begin Lineclipboard:=Tlineclipboard.cre...

LineClipboard:TLineClipboard; begin LineClipboard:=TLineClipboard.Create;

LineClipboard.LineData.Name:=StringGrid1.Cells[0, StringGrid1.Row]; LineClipboard.LineData.LastName:=StringGrid1.Cells[1, StringGrid1.Row]; LineClipboard.LineData.Bothday:=StringGrid1.Cells[2, StringGrid1.Row]; LineClipboard.LineData.Age:=StrToInt(StringGrid1.Cells[3, StringGrid1.Row]); LineClipboard.LineData.Telephone:=StringGrid1.Cells[4, StringGrid1.Row];

LineClipboard.CopyToClipboard;

LineClipboard.Free; end;

В разделе varу меня объявлена одна переменная типа TLineClipboard – объект для работы с буфером обмена, который мы написали в модуле ClipboardFormatUnit. В первой строке кода я инициализирую эту переменную.

Потом я заполняю структуру LineData объекта LineClipboard данными из выделенной строки сетки. По завершению этого процесса я копирую данные в буфер обмена с помощью вызова метода CopyToClipboard объекта LineClipboard.

Данные скопированы, значит, объект уже не нужен, и его можно уничтожать. Для этого я вызываю метод Free.

По нажатию кнопки «Вставить» пишем следующий код:

Развернуть

Открыть в широком формате

– Конец работы –

Эта тема принадлежит разделу:

Буфер обмена и стандартные компоненты Delphi

Глава Буфер обмена...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Procedure TForm1.CopyButtonClick(Sender: TObject); var

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Private
{ Private declarations } FClipboardOwner:HWnd; procedure WMDrawClipboard(var Msg: TWMDrawClipboard); message WM

Begin if Clipboard.HasFormat(CF_BITMAP) then
begin PasteButton.Enabled := True; Break; end; end; end; Для начала я делаю кнопку «Вставить» неактивной. Потом я запускаю цик

TLineClipboard=class
public LineData:TLineData; procedure CopyToClipboard; procedure PasteFromClipboard; end; Структура TLineData состоит из пяти полей. Именно

If Clipboard.HasFormat(CF_PERSONDATA) then
begin LineClipboard.PasteFromClipboard; StringGrid1.Cells[0, StringGrid1.Row]:=LineClipboard.LineData.Name; StringGrid1.Cells[1, StringGrid1.Row]:=LineClipboard.LineData.LastName; StringGri