Wahrscheinlich ist sehr schnell zu helfen, aber leider schaffe ich es nicht alleine. Ich hab dynamisch eine Checkbox (name := mannschaft) createt und wollte der Methode mannschaft.onclick eine Procedure zuweisen, jedoch schreibt der immer :"[Fehler] Unit2.pas(30): Nicht genügend wirkliche Parameter". Kein Plan was ich falsch mache
mein zweites kleines Problem ist, dass er die checkbox nicht als solches erkennt und der immer schreibt:"[Fehler] Unit2.pas(75): Undefinierter Bezeichner: 'mannschaft'"
was machei ich falsch???
hier ist nochmal der code:
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:
49:
50:
51:
52:
53:
54:
55:
56:
57:
| uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm2 = class(TForm)
WKEigenschaft: TGroupBox;
OK: TButton;
Geret: TPanel;
procedure FormCreate(Sender: TObject);
private
procedure clicken(Sender: TObject);
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
mannschaft,einzel : tcheckbox;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
// hier ist der Fehler NR.1
mannschaft.OnClick = clicken;
mannschaft := tcheckbox.Create(self);
mannschaft.Ctl3D:=true;
mannschaft.Width := 125;
mannschaft.Name := 'mannschaft';
mannschaft.Caption := 'Mannschftswettkampf';
mannschaft.Color:=clBtnFace;
{WKEigenschaft ist eine Groupbox in der die checkbox ist}
mannschaft.ParentWindow := WKEigenschaft.Handle;
mannschaft.Top := 32;
mannschaft.Left := 16;
einzel := tcheckbox.Create(self);
einzel.Ctl3D:=true;
einzel.Width := 125;
einzel.Name := 'einzel';
einzel.Caption := 'Einzelwettkampf';
einzel.Color:=clBtnFace;
einzel.ParentWindow := WKEigenschaft.Handle;
einzel.Top := 32;
einzel.Left := 160;
end;
procedure TForm2.clicken(Sender: TObject);
begin
// hier ist der Fehler NR.2
if WKEigenschaft.mannschaft.checked then WKEigenschaft.einzel.Enabled:=false
else WKEigenschaft.einzel.Enabled:=true;
end;
end. |
ich nehme an, dass es grundlegende Fehler sind und da ich mein ganzes Prog mit dynamischen Komponenten erstellen will, sollte ich sollte ich schon wissen was ich da dummes gemacht hab.
ich glaube da hätte man auch selber drauf kommen können