Как добавить пункт меню в выпадающее по умолчанию меню TMemo?

← →
Reals © (2003-03-07 18:42) [0]

Собственно Subj

Заранее благодарен.

← →
Roma © (2003-03-07 18:54) [1]

Английский надо учить... И хелп читать... Добавить - Add, Пункт - Item, выпадающее - Popup, меню - Menu...

PS: TPopupMenu.Items.Add... Предварительно этот пункт (Item) меню (Menu) нужно создать (Create)...

← →
Intell © (2003-03-07 19:05) [2]

Не знаю как в Memo, а как добавить свой пункт в системное меню программы я знаю. Посмотри, может поймёшь, как нужно в Memo.

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

const
SC_MyMenuItem = WM_USER + 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, "");
AppendMenu(GetSystemMenu(Handle, FALSE),
MF_STRING,
SC_MyMenuItem,
"My Menu Item");
end;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MyMenuItem then
ShowMessage("Got the message") else
inherited;
end;

Intell
sergein@nojabrsk.ru

← →
Roma © (2003-03-07 19:18) [3]

Оба-на, TMemo имелось в виду - сорри...

← →
Pesh (2003-03-07 22:39) [4]

Не мучайся, напиши своё меню:
(отменить, вырезать, копировать, вставить, удалить, выделить всё + твоё)

procedure actUndoExecute(Sender: TObject);
begin
if AM.Perform(EM_CANUNDO, 0, 0) <> 0 then AM.Perform(EM_UNDO, 0, 0);
end;

procedure miCutClick(Sender: TObject);
begin Memo.CutToClipBoard;
end;

procedure miCopyClick(Sender: TObject);
begin Clipboard.AsText:=Memo.SelText;
{или Memo.CopyToClipBoard}
end;

procedure TfCDtMain.miInsertClick(Sender: TObject);
begin Memo.PasteFromClipboard;
end;

procedure miDeleteClick (Sender: TObject);
begin Memo.ClearSelection;
end;

procedure miSelectAllClick (Sender: TObject);
begin Memo.SelectAll;
end;

← →
Pesh (2003-03-07 22:43) [5]

AM имеется в виду ActiveMemo, т.е. просто Memo

2Pesh:
Спасибо. Я сначала тоже так думал, создать свое меню, но подумал может можно туда просто добавить, чтобы лишнего кода не писать. Но вижу что все-таки придется писать свое меню. Спасибо за приведенный пример, воспользуемся...

2Roma: Английский я знаю и хелпы читаю, я только на на хелпах и учусь.

Как добавить пункт меню в выпадающее по умолчанию меню TMemo? Найти похожие ветки