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:
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:
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