TObjekt ???

[Sheppard]

hi leutz,

Ich brauch wieder mal Hilfe!

Ich will ein Programm schreiben das aus einer Datenbank, Einträge ausliest und dann automatisch das Popupmenü mit TMenuItems erweitert! Klappt alles!

Nur wenn ich jeden Butten ein "OnClick" Ereignis geben will dauert das ewig und ist auch nicht kompatible auf anderen Rechnern!

Da das "OnClick" Ereignis nur (Sender:TObjekt) haben darf, kann ich nur jeden Butten ein und dasselbe Ereignis geben!

Ich möchte aber das jeder Button dynamisch erzeugt wird und dann ein Programm startet dessen Pfad in einer Datenbank steht!

Vielen Dank im Vorraus

[Binärbaum]

Dann nutze doch die Eigenschaft Tag des Buttons, um zu unterscheiden, welches Objekt es ist. Nummeriere die Buttons einfach fortlaufend wenn sie erstellt werden.

Delphi-Quellcode:

procedure TForm1.ButtonXClick(Sender: TObject);
begin
  if (Sender.ClassName = 'TButton') then begin
    case (Sender AS TButton).Tag of
      1: ShowMessage('Button1');
      2: ShowMessage('Button2');
      3: ShowMessage('Button3');
      ...
    end;
 end;//if
end;

MfG
Binärbaum

[sniper_w]

Zitat:

Dann nutze doch die Eigenschaft Tag des Buttons, um zu unterscheiden, welches Objekt es ist. Nummeriere die Buttons einfach fortlaufend wenn sie erstellt werden.

Richtig. Dann wird auch den code so aussehen :

Delphi-Quellcode:

procedure TForm1.ButtonXClick(Sender: TObject);
begin
    case TComponent(Sender).Tag of // TButton(Sender).Tag
      1: ShowMessage('Button1');
      2: ShowMessage('Button2');
      3: ShowMessage('Button3');
      ...
    end;
end;

Ich glaube, irgendwo gelesen zu haben, dass man lieber AS weglassen sollte. Das Code wird unnötig länger.

[jbg]

Zitat von sniper_w:

Ich glaube, irgendwo gelesen zu haben, dass man lieber AS weglassen sollte. Das Code wird unnötig länger.

as wird vom Compiler in eine "is" Abfrage mit Exception bei Fehler aufgelöst. Und das jedesmal. Ein TMyObject(obj) hingegen ist nur ein interpretieren der Daten, es entsteht dabei kein zusätzlicher Code. Es kann aber wegen der fehlenden Exception zu einer Schutzverletzung kommen, wenn das Objekt mal doch nicht vom erwarteten Typ ist.

[Robert_G]

Komplett OT:
Aber einInstance as Type liest sich einfach schneller als einType(Instance) .
Letzteres könnte ja ein Funktionsaufruf sein. Was ein zweites genaueres Hinsehen erfordert.
Ich persönlich bevorzuge also immer "as", außer Optimierungen verbieten es mir.

Es wäre auch genauso möglich von TMenuItem abzuleiten damit man der Instanz den Dateinamen geben kann.
Beim Click würde das Item dann die App starten, ohne dass du dich im Formular code darum kümmern musst.

Auch wenn es gerne vergessen wird, Delphi ist eine OO Sprache.