Onclick mit weiteren Parametern als nur "Sender:Tobject"

[Dt2158]

Hallo,

ich habe folgendes Problem:
Ein zur laufzeit erzeugter button "but1"

Delphi-Quellcode:

type
...
procedure But1Click(Sender: TObject);
 private
...
...
...
...

but1.onclick := But1Click;

..
..

procedure TForm1.But1Click(Sender: TObject);
begin
...
end

Geht einwandfrei, klar!
aber ich möchte gerne die Parameterliste erweitern

etwa so:

Delphi-Quellcode:

type
...
procedure But1Click(Sender: TObject; x:string);
 private
...
...
...
...

but1.onclick := But1Click('irgendein string');

..
..

procedure TForm1.But1Click(Sender: TObject; x:string);
begin
...
end

Da kommt die meldung:

Code:

[Fehler] main.pas(289): Inkompatible Typen: 'TObject' und 'String'

gut sender:Tobject !!
was kann ich tun ??
aus dem
but1.onclick := But1Click('irgendein string'); ein but1.onclick := But1Click(but1,'irgendein string'); zu machen, resultiert in diesem fehler

Code:

[Fehler] main.pas(289): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Dt2158

[ibp]

welchen sinn verfolgst du damit?

[Steve]

Hi,

OnClick ist vom Typ TNotifyEvent, der folgendermaßen definiert ist:

Delphi-Quellcode:

TYPE
  TNotifyEvent = PROCEDURE (Sender: TObject) OF OBJECT;

Das heißt, OnClick wird nur der Methodenname übergeben. Des weiteren ist somit klar, dass Du einem 'normalen' TNotifyEvent-Handler keine weiteren Parameter übergeben kannst, da diese ja bereits definiert sind.
Hmm.. habs heut nich so mitm Erklären, sry

Gruß
Stephan

[Dt2158]

der string:but1.onclick := But1Click('irgendein string'); stammt von einem mysql-result
var row: PMYSQL_ROW; also but1.onclick := But1Click(row[0]); das problem ist, dass es mir nicht gelungen ist die variable row: PMYSQL_ROW global zu registrieren, sondern nur in der procedure in der auch der aufruf von But1Click stattfindet.

Gut ich könnte jetzt noch eine global Variable registrieren und dieser row[0] übergeben, das ist aber alles nicht so schön gelöst und mein programm sieht jetzt schon nicht so toll aus

[Dt2158]

Zitat von Steve:

Hi,

OnClick ist vom Typ TNotifyEvent, der folgendermaßen definiert ist:

Delphi-Quellcode:

TYPE
  TNotifyEvent = PROCEDURE (Sender: TObject) OF OBJECT;

Das heißt, OnClick wird nur der Methodenname übergeben. Des weiteren ist somit klar, dass Du einem 'normalen' TNotifyEvent-Handler keine weiteren Parameter übergeben kannst, da diese ja bereits definiert sind.
Hmm.. habs heut nich so mitm Erklären, sry

Gruß
Stephan

grummel, da muss ich doch den anderen weg nehmen

[Sanchez]

Hallo,
Ich verstehe trotzdem nicht warum du das machen willst und was es bewirken soll.
Willst du einen String außerhalb dieser Prozedur speichern?
Dann nimm eine Membervariable der Klasse. Ich kann aber nur raten, was du bezweckst.

grüße, daniel

[s14]

Hallo,
ich verwende für die Übergabe von Zeichenfolgen einfach die Eigenschaft "Hint" des TButton.

Code:

  but1.Hint := 'Irgendwas';
  but1.onclick := But1Click;

  procedure TForm1.But1Click(Sender: TObject);
  var
    s : string;
  begin
    s := (Sender as TButton).Hint;
  end

[Dt2158]

Zitat von s14:

Hallo,
ich verwende für die Übergabe von Zeichenfolgen einfach die Eigenschaft "Hint" des TButton.

Code:

  but1.Hint := 'Irgendwas';
  but1.onclick := But1Click;

  procedure TForm1.But1Click(Sender: TObject);
  var
    s : string;
  begin
    s := (Sender as TButton).Hint;
  end

geile idee mal ausprobieren

[Dt2158]

hat wunderbar geklappt, danke!