Hallihallo,
ich bin gerade auf folgende Problematik gestoßen:
Ich habe ein "Menü" das einfach auf ein Formular mehrere Buttons setzt. Nun soll diesen Buttons noch eine OnClick-Prozedur zugewiesen werden.
Ich habe mittlerweile mitbekommen, dass diese Prozedur vom Typ TNotifyEvent sein muss.
Soweit so gut ich habe versucht das so zu schreiben. Allerdings meckert der Compiler :
[Fehler] : Inkompatible Typen: Methodenzeiger und reguläre Prozedur
Meine Frage nun: Wie muss die richtige Methodenzuweisung lauten? Ist die Prozedur so richtig geschrieben, wenn ich die Nummer des Buttons herausfinden möchte?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
| ...
var
Form5 : TForm5;
knoepfe : Array[0..9] of TButton;
auswahl : Integer;
function menue(menue : Array of String) : Integer;
implementation
{$R *.DFM}
class procedure klick(Sender : TObject);
begin
auswahl := StrToInt((Sender as TButton).Name[8]);
Form5.Close
end;
function menue(menue : Array of String) : Integer;
var
i : Integer;
begin
Form5 := TForm5.Create(nil);
i := 0;
while (i<=9) and (menue[i]<> '')
do begin
knoepfe[i] := TButton.Create(nil);
with knoepfe[i] do
begin
Parent := Form5;
Caption := menue[i];
Height := 50;
Width := 150;
Left := Parent.Width div 2 - Width div 2;
if i <> 0
then Top := Height div 2 * i + (i-1)*Height
else Top := Parent.Height - Height * 3 div 2;
OnClick := klick;
Show;
Repaint
end;
Inc(i)
end;
Form5.ShowModal;
Form5.Release;
result := auswahl
end;
... |
Vielen Dank im Vorraus
Chrissi
