Текущий архив: 2006.07.23;
Скачать: CL | DM;
Вниз
Как копировать в буфер обмена из 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;
Страницы: 1 вся ветка
Текущий архив: 2006.07.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.042 c
