Как копировать в буфер обмена из Edit

← →
pound © (2006-06-08 19:50) [0]

Подскажите, как копировать, вставлять из буфера обмена в редактор Edit горячими клавишами, точнее как создать событие по нажатию горячих клавиш, чтобы можно было работать с буфером обмена.
Заранее благодарю. Андрей.

← →
GanibalLector © (2006-06-08 22:59) [1]

uses ClipBrd и вперед. Можно и на Api см. Clipboard Functions+F1

← →
Юрий Зотов © (2006-06-08 23:01) [2]

> pound © (08.06.06 19:50)

Самый лучший способ - не делать ничего. Edit и сам по себе уже умеет работать с буфером обмена. Если ему не мешать, конечно.

← →
tButton © (2006-06-09 08:57) [3]

> Edit и сам по себе уже умеет работать с буфером обмена.

типа... edit1.CopyToClipboard, PasteFromClipboard, CutToClipboard
или их по другому зовут?

← →
Handle (2006-06-09 10:44) [4]

private procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY; procedure TForm1.FormCreate(Sender: TObject); begin if not RegisterHotkey(Handle, 1, MOD_ALT, VK_F9) then ShowMessage("Unable to assign Alt-Shift-F9 as hotkey."); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnRegisterHotkey( Handle, 1 ); end; procedure TForm1.WMHotkey( var msg: TWMHotkey ); begin if msg.hotkey = 1 then begin SendMessage(Edit1.Handle, WM_PASTE, 0, 0); end; end;

Как копировать в буфер обмена из Edit Найти похожие ветки