Советы по Delphi

         

Поддержка Cut Copy Paste I


Автор: "Shejchenko Andrij" <andrij@dep01.niiit.kiev.ua>

Я использую следующую процедуру. Вызывайте ее при нажатии на соответвующих пунктах меню. Это будет работать со всеми "редактируемыми" элементами управления. Но для деревьев вы должны использовать специальные сообщения редактирования.

    procedure TMainForm.EditUndo(Sender: TObject);
var Mes:TWMUndo;
begin
Mes.Msg:=WM_UNDO; Screen.ActiveControl.Dispatch(Mes); end;

procedure TMainForm.EditCut(Sender: TObject);
var Mes:TWMCut;
begin


Mes.Msg:=WM_CUT; Screen.ActiveControl.Dispatch(Mes); end;

procedure TMainForm.EditCopy(Sender: TObject);
var Mes:TWMCopy;
begin
Mes.Msg:=WM_COPY; Screen.ActiveControl.Dispatch(Mes); end;

procedure TMainForm.EditPaste(Sender: TObject);
var Mes:TWMPaste;
begin
Mes.Msg:=WM_PASTE; Screen.ActiveControl.Dispatch(Mes); end;
[000302]



Содержание раздела