Menu par prog - chope le nom de l'objet [DELPHI] - Programmation
Marsh Posté le 23-01-2002 à 12:15:06
procedure TForm1.Button5Click(Sender: TObject); var NewItem: TMenuItem; Item2: TMenuItem; Menu: TMainMenu; begin Menu := TMainMenu.Create(Self); NewItem := TMenuItem.Create(Self); Item2 := TMenuItem.Create(Self); NewItem.Caption := 'menu'; Item2.Caption := 'sous menu'; Item2.OnClick := SMenuClick; NewItem.Add(Item2); Menu.Items.Add(NewItem); end; procedure TForm1.SMenuClick(Sender: TObject); begin ShowMessage('Click'; <------Comment ici avoir le nom de l'item qui a été cliké? end;
Marsh Posté le 23-01-2002 à 12:19:22
if Sender is TMenuItem then ShowMessage((Sender as TMenuItem).Caption); par exemple
[edtdd]--Message édité par antp--[/edtdd]
Marsh Posté le 23-01-2002 à 12:27:28
Merci
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 23-01-2002 à 12:15:06
procedure TForm1.Button5Click(Sender: TObject);
var
NewItem: TMenuItem;
Item2: TMenuItem;
Menu: TMainMenu;
begin
Menu := TMainMenu.Create(Self);
NewItem := TMenuItem.Create(Self);
Item2 := TMenuItem.Create(Self);
NewItem.Caption := 'menu';
Item2.Caption := 'sous menu';
Item2.OnClick := SMenuClick;
NewItem.Add(Item2);
Menu.Items.Add(NewItem);
end;
procedure TForm1.SMenuClick(Sender: TObject);
begin
ShowMessage('Click'; <------Comment ici avoir le nom de l'item qui a été cliké?
end;