Komponene zur Laufzeit + Ereignis

[LoL]

hallo zusammen

eine Komponente zur Laufzeit zu erstellen ist kein Problem aber ich möchte wenn ich zb. einen Button Erzeuge ein Ereignis auf OnClick legen das ist im Prinzip auch kein Problem aber da es bei mir eine Zeile ist finde ich es dumm extra eine procedure zu schreiben nur für einen Befehl! Geht es nicht irgendwie so in der Art:

Delphi-Quellcode:

  Mein_Knopf := TButton.Create(Form1);
  With Mein_Knopf do
    begin
      Parent := Form1;
      OnClick := Form1.Close
    end;

Danke schon mal im Vorraus

[Luckie]

Die Forensuche sollte dir deine Frage beantworten.

[jim_raynor]

Zitat von LoL:

hallo zusammen

eine Komponente zur Laufzeit zu erstellen ist kein Problem aber ich möchte wenn ich zb. einen Button Erzeuge ein Ereignis auf OnClick legen das ist im Prinzip auch kein Problem aber da es bei mir eine Zeile ist finde ich es dumm extra eine procedure zu schreiben nur für einen Befehl! Geht es nicht irgendwie so in der Art:

Delphi-Quellcode:

  Mein_Knopf := TButton.Create(Form1);
  With Mein_Knopf do
    begin
      Parent := Form1;
      OnClick := Form1.Close
    end;

Danke schon mal im Vorraus

Nein!

[LoL]

ja das es so nicht geht ist mir schon klar aber kann man das nur in einer zeile lösen?

[SirThornberry]

eindeutig NEIN. Wenn du schonmal eine Komponente geschrieben hast und dieser ein Event verpasst hast weißt du warum, wenn nicht: hier die Erklärung:
Ein Event ist nix anderes als ein Pointer auf eine bestimmte Procedure/Funktion. Zum Beispiel bei OnClick wird ein pointer auf eine Procedure erwartet.
(OnClick = TNotifyEvent = procedure(Sender: TObject) of Object).

Intern wird jetzt sobald ein Klick auf die Komponte geschieht ungefähr folgendes gemacht:

Delphi-Quellcode:

  if Assigned(OnClick) then
    OnClick(Self);

pseudcode:

Zitat:

wenn OnClick-pointer auf eine Procedure zugewiesen ist dann
procedure aufrufen und als ersten parameter mich selbst übergeben

Wenn du jetzt anstelle so eines ProcedurePointers ein "Close" einfügen würdest (wenn das der Compiler zulassen würde) dann würde intern versucht werden dieses "Close" als procedure aufzurufen - ungefähr so:
Close(Self); Da an der Stelle wo "Close" im speicher steht allerdings die Struktur für einen Parameter nicht vorhanden ist sondern andere Befehle an der Stelle stehen würde es "BUM" machen und irgendwas geht dann schief.

[LoL]

kann ich dan nnicht reintheoretisch einen pointer auf Form1.close zeigen lassen und vortäuschen es wäre eine procedure?

[Neutral General]

Zitat von SirThornberry:

Wenn du jetzt anstelle so eines ProcedurePointers ein "Close" einfügen würdest (wenn das der Compiler zulassen würde) dann würde intern versucht werden dieses "Close" als procedure aufzurufen - ungefähr so:
Close(Self); Da an der Stelle wo "Close" im speicher steht allerdings die Struktur für einen Parameter nicht vorhanden ist sondern andere Befehle an der Stelle stehen würde es "BUM" machen und irgendwas geht dann schief.

Ich wollte ma zum Spaß sehen was bei "BUM" passiert aber mein Compiler (Delphi 3) hat hierbei gemeckert :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Mein_Knopf : TButton;
begin
 Mein_Knopf := TButton.Create(Form1);
  With Mein_Knopf do
    begin
      Parent := Form1;
      OnClick := Close;
    end;
end;

"Liste der Parameter ist unterschiedlich"...

[LoL]

jo genau das kommt ja bei mir auch

@lukie meinst du mit suche finde ich die lösung oder merke ich das es nicht geht?

[SirThornberry]

Theoretch ja, aber wie willst du das mit dem vortäuschen machen. Durch den internen Aufruf werden ja parameter auf dem Stack (je nach aufrufconvention auch wo anders) abgelegt. Das Close erwartet aber zum Beispiel ganz andere Parameter (in dem Fall mal keine). Das heißt die Parameter die auf dem Stack abgelegt wurden werden dann als Parameter eines anderen Typs behandelt und da machts eben "BUM".

[LoL]

das weis ich auch nicht deshalb hab ich ja gefragt