Hallo zusammen.
Ich beschäftige mich gerade mit dynamisch erzeugten Oberflächen. Die SuFu hier hat mit schon sehr oft weiter geholfen, aber jetzt finde bzw. komme ich nicht auf die Lösung.
Folgende Situation:
Ich habe ein Form (FormMainWindows) und eine Unit in der ich meine Funktionen habe. In dieser Unit habe ich die Funktion MakePicVisible(Number: byte; Type: byte): Integer; mit der ich eine Combobox mit einem Bild erzeugen kann. Die Position der Box und somit auch des Bildes ist abhängig von Number ..... Nun möchte ich, dass wenn das Bild angeklickt wird, eine Procedure ausgeführt wird. Und genau dabei harpert es.
Die Funktion MakePicVisible sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

function MakePicVisible(Number: byte; Type: byte): Integer;
var
  Groupboxes : array[1..64] of TGroupbox;
  Images : array[1.. 64] of TImage;
  ...

begin
  {***********************************************
  *            generate GroupBox                *
  ***********************************************}
  Groupboxes[Number] := TGroupbox.Create(FormMainWindow);
  with Groupboxes[Number] do
  begin
    Parent := FormMainWindow;

    ....   
    ....

    Visible := TRUE;
    Enabled := TRUE;
  end;


  {***********************************************
  *              generate Pic                  *
  ***********************************************}
  Images[Number] := TImage.Create(FormMainWindow);
  with Images[Number] do
  begin
      Parent := Groupboxes[Number];

      ....
      ....

      OnClick := FormMainWindow.SetAddressAndCaption(FormMainWindow, Number, Type); // (*) Fehler hier

      Picture.LoadFromFile('..\gfx\myPic.bmp');

      Visible := TRUE;
      Enabled := TRUE;

      Refresh;
  end;
end;

In der Unit meiner Form habe die OnClick-Procedure implementiert:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TFormMainWindow = class(TForm)
    ....
    ....
    procedure SetAddressAndCaption(Sender: TObject; Number: byte; Type: byte);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


....
....

implementation

....
....


procedure TFormMainWindow.SetAddressAndCaption(Sender: TObject; Number: byte; Type: byte);
begin
  ....
  ....
end;

Wenn ich jetzt die Anwendung ausführen möchte, erscheint folgende Meldung:
[Pascal Fehler] UNIT_Fkt_Proc.pas(93): E2010 Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'
Diese bezieht sich auf die Zeile mit dem (*).
Habe viel rumprobiert. Habe auch mal probiert die Procedure nicht als Methode meiner Form zu implementieren, sondern als normale Procedure in meiner Funktions-Unit. Hat aber alles nicht funktioniert.
Wer kann mir da weiterhelfen?

Vielen Dank

OnClick ist vom Typ TNotifyEvent, also muss die zugewiesene Methode die gleiche Signatur haben.

markieren

Delphi-Quellcode:

type
  TFormBlubb = class(TForm)
    ...
    procedure MachWas(Sender: TObject); //so muss die Signatur aussehen, keine abweichenden Argumente
    ...
  end;

...
  Kompo.OnClick := MachWas;

genau.

und in diesem event kannst du dann die procedure SetAddressAndCaption() aufrufen.

Außerdem solltest Du ein Argument nicht type nennen.

Vielen Dank. Es funktioniert soweit.

Zitat von DeddyH:

Außerdem solltest Du ein Argument nicht type nennen.

Okay, stimmt natürlich. Habe ich auch schon geändert.

Gibt es denn eine Möglichkeit meiner 'OnClick-Funktion' Argumente zu übergeben? Da die Signatur ja nicht abweichen darf, bleibt also nur die Möglichkeit über globale Variablen, oder geht es auch anders?

Statt globaler Variablen solltest Du private Felder nehmen.