Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Буфер обмена

Автор: MacTep 21.7.2004, 13:23

Как скопировать Label1.Caption в буфер обмена, который будет доступен и после завершения работы моей программы?

Автор: Pakshin A. S. 21.7.2004, 13:31

наверное Label1.CopyToClipboard...

Автор: <Spawn> 21.7.2004, 13:45

uses ClipBrd;

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  ClipBoard: TClipBoard;
begin
  ClipBoard := TClipBoard.Create;
  try
    ClipBoard.AsText := Label1.Caption;
  finally
    FreeAndNil(ClipBoard);
  end;
end;

Автор: MacTep 21.7.2004, 14:32

<Spawn>, спасибо. Только кое-что поясни, пожалуйста: зачем делать

Код

finally
   FreeAndNil(ClipBoard);

Что это будет обозначать?

Автор: <Spawn> 21.7.2004, 14:41

MacTep
Это означает вот это:

Код

ClipBoard.Free;
ClipBoard := nil;

Вызывать не обязательно так, можешь просто Free вызвать - у меня привычка уже использовать FreeAndNil:)

Автор: MacTep 21.7.2004, 15:02

Теперь понял! Благодарю! Очень помог!