Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Wie müssen neue Submenüs angesprochen werden ??

  Alt 22. Jul 2003, 20:37
Moin Dieter,

für Variante 1 sähe das so aus:

Delphi-Quellcode:
// Im Formular wird manuell eine Methode angelegt
TForm1 = class(TForm)
  //... andere Prozeduren usw.
  procedure NeuesMenuItemClick(Sender: TObject);
  // ...
end;

//...

implementation

procedure TForm1.NeuesMenuItemClick(Sender: TObject);
begin
  // was beim Click auf das Item geschehen soll
end;

// in der Prozedur die das Item erzeugt:
NeuesSubmenue.OnClick := NeuesMenuItemClick;
und bei Variante 2 müsstest Du Dir noch eine ActionList auf das Formular legen, eine Action erzeugen, und dann für diese Action eine OnExecute Methode.

Delphi-Quellcode:
// in der Prozedur die das Item erzeugt:
NeuesSubmenue.Action := Action1;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat