2950 connectés

FORUM HardWare.fr

Programmation

[DELPHI] Menu par prog - chope le nom de l'objet

Recherche :

Dernière réponse
Sujet : [DELPHI] Menu par prog - chope le nom de l'objet
AGA	Merci :) :hello:

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

AGA	Merci :) :hello:

antp	if Sender is TMenuItem then ShowMessage((Sender as TMenuItem).Caption); par exemple [edtdd]--Message édité par antp--[/edtdd]

AGA

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;