Копирование в буфер обмена
Материал из DRKB
Копирование в буфер обмена[править | править код]
procedure CopyButtonClick(Sender: TObject);
begin
if ActiveControl is TMemo then
TMemo(ActiveControl).CopyToClipboard;
if ActiveControl is TDBMemo then
TDBMemo(ActiveControl).CopyToClipboard;
if ActiveControl is TEdit then
TEdit(ActiveControl).CopyToClipboard;
if ActiveControl is TDBedit then
TDBedit(ActiveControl).CopyToClipboard;
end;
procedure PasteButtonClick(Sender: TObject);
begin
if ActiveControl is TMemo then
TMemo(ActiveControl).PasteFromClipboard;
if ActiveControl is TDBMemo then
TDBMemo(ActiveControl).PasteFromClipboard;
if ActiveControl is TEdit then
TEdit(ActiveControl).PasteFromClipboard;
if ActiveControl is TDBedit then
TDBedit(ActiveControl).PasteFromClipboard;
end;
Source: http://delphiworld.narod.ru/
ID: 01872