Komponenten zur Laufzeit erstellen mit Ereignissen unter FPC

[stiftII]

Hallo,
unter Lazarus habe ich eine komponente zur Laufzeit erstellt, nun möchte ich dem OnDraw Ereignis eine eigene Funktion zuweisen.

Leider funktioniert das nicht.

Mein Code sieht ungefähr so aus.

Delphi-Quellcode:

... 
public
procedure mydrawing(Sender: TObject);
...
//var für komponente
MyComboBox: TComboBox;
..
procedure TForm1.mydrawing(Sender: TObject);
begin
...
end;
...
//Das erstellen:
procedure Form1.OnCreate(Sender: TObject);
begin
MyComboBox := TCombobox.Create(Form1);
MyComboBox.OnDrawItem := mydrawing;
end;

Das löst dann den Fehler aus:
unit1.pas(1138,56) Error: Wrong number of parameters specified for call to "mydrawing"

Wie kann man das lösen ?

So wie es in dieser Anleitung(http://www.delphi-treff.de/tutorials...en/einleitung/) steht geht es in Lazarus leider nicht ...

stiftII

[himitsu]

Schau dir mal in der Hilfe an, welche Parameter eine Methode für OnDrawItem haben muß.
(notfalls einfach mal vom OI soeine Funktion erstellen lassen)


Und ganau das besagte auch die Fehlermeldung.
Die Parameter deiner Methode stimmen nicht mit dem überein, was für OnDrawItem deklariert ist.
(hier könnte man sich auch mal direkt die Deklaration von OnDrawItem ansehn, bzw. die des Typen, welcher für OnDrawItem, als Rückgabewert, verwendet wurde)

[stiftII]

Zitat von himitsu:

Schau dir mal in der Hilfe an, welche Parameter eine Methode für OnDrawItem haben muß.
(notfalls einfach mal vom OI soeine Funktion erstellen lassen)


Und ganau das besagte auch die Fehlermeldung.
Die Parameter deiner Methode stimmen nicht mit dem überein, was für OnDrawItem deklariert ist.
(hier könnte man sich auch mal direkt die Deklaration von OnDrawItem ansehn, bzw. die des Typen, welcher für OnDrawItem, als Rückgabewert, verwendet wurde)

Hi Himitsu,
das ist mir schon klar.

Aber an der Stelle, an der die Komponente erstellt wird habe ich die zu übergebenden Variablen doch garnicht ?

Ich stehe da irgendwie auf dem Schlauch.

stiftII

[stiftII]

Ich habs
comboboxesadd[i].OnDrawItem := @colorfulcombobox;

Ein @ vor der Prozedur und es funktioniert

[stiftII]

Zu früh gefreut ...

Das Ereignis wird niemals aufgerufen.

Aufgerufen wird es als:

Delphi-Quellcode:

procedure TForm1.colorfulcombobox(Control: TWinControl; Index: Integer;
  ARect: TRect; State: TOwnerDrawState);
begin
      ShowMessage('test');
end;

Und deklariert so:

Delphi-Quellcode:

           comboboxesadd[i] := TCombobox.Create(Form1);
           comboboxesadd[i].OnDrawItem := @colorfulcombobox;

Warum klappt das so nicht ?

[implementation]

Hast du die ComboBox auch auf OwnerDraw gestellt?

[neo4a]

Zitat von stiftII:

Ein @ vor der Prozedur und es funktioniert

Wirklich?!

Ansonsten muss die Prozedur colorfulcombobox so aufgebaut sein, damit der Fehler verschwindet:

Delphi-Quellcode:

colorfulcombobox(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);

Bei der Zuweisung benötigst Du keine Parameter, die werden von der Combobóx beim Aufruf mitgegeben.

[implementation]

Das @ ist wichtig. Objfpc-Dialekt <> Delphi-Dialekt.
FreePascal erwartet vor Prozedur-/Funktionszuweisungen immer das @, anders als in Delphi.
Wenn's dich stört, schalte per {$mode delphi} in den Kompatibilitätsmodus.
Das @ wird also nicht der Fehler sein.

[stiftII]

Zitat von implementation:

Hast du die ComboBox auch auf OwnerDraw gestellt?

Das wars. THX!