|
|
|
|
Поддержка 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;
|
|
|
|
|
|