Seltsamer Fehler

[Privateer3000]

Hallöchen,

beim zuweisen eines OnClick-Ereignisses tritt folgender Fehler auf:
[Fehler] panelen.pas(132): Inkompatible Typen: 'TMouseEvent' und 'procedure, untyped pointer or untyped parameter' Das witzige ist die gleichen bedingungen liegen auch in einer anderen Unit vor.
Und dort funktioniert das ganze.

Was kann man aus der Fehlermeldung erkennen?

[Die Muhkuh]

Weist Du es über den OI zu oder per Quelltext?

Stimmen die Parameter nicht überein?

[Privateer3000]

das OnClick wird einem Button zugewiesen
der erstellt wird.
während des Create-prozesses wird das ereignis zugewiesen.
Wie gesagt in einer anderen Form wird das gleiche gemacht
ohne Probleme...

[mkinzler]

Du scheinst eine freie Prozedur/Funktion statt einer Methode verwendet zu haben

[Privateer3000]

hat das was vllt. damit zu tun,
dass es sich um einen Frame handelt, auf dem der Button
erstellt wird.?
aber in der anderen Unit ist es genauso.
Es handelt sich IMHO aber um eine Methode:

Delphi-Quellcode:

procedure Tpans.artbutClick(Sender: TObject);
var sztag:Integer;
begin
if Sender is TXiButton then begin sztag:=TComponent(Sender).Tag;  end;
with buttonquer do begin
Close; SQL.Clear;
SQL.Text:='SELECT * FROM buttons WHERE id=:TG1';
Prepared:=True;
Parameters.FindParam('TG1').Value:=sztag;
Open;
end;
end;

onClick:=artbutClick(Sender);

[DeddyH]

Lass mal den Sender bei der Zuweisung weg.onClick:=artbutClick;

[sirius]

if Sender is TXiButton then {begin} sztag:=TComponent(Sender).Tag; {end;} Hier kannst begin..end weglassen. Ist ja nur ein Befehl drin.

[Luckie]

Bitte gib deinem Thread einen aussagekräftigen Titel. Du bist jetzt schon über sechs Jahre Mitglied hier und solltest das eigentlich wissen.

[Privateer3000]

Sorry Luckie,
aber ich wußte nicht im Moment wie ich "Das Ding" nennen sollte.
Zuma im Kopf andere Sachen rumgeistern, wenn man feststeckt...

[QuickAndDirty]

onClick:=artbutClick(Sender); // das geht nicht
onClick:=artbutClick;// das geht