Hallo,
ich versuche gerade ein OnClickScript für einen Button zu schreiben. Das OnClickScript sieht so aus:
Begin
s1 := OpenDialog('ColorDialog_1');
End;
Wird jetzt auf den Button gedrückt erscheint der ColorDialog, aber nach bestätigen des Dialogs kommt dies:
Wie man sieht steht in meiner Variablen s1 nichts.
Was mach ich da falsch
MfG
KDP
Problem OpenDialog mit ColorDialog
Moderator: SYNERPY
-
- Beiträge: 515
- Registriert: Di Okt 19, 2004 5:45 am
- Wohnort: Diepholz
-
- Site Admin
- Beiträge: 2673
- Registriert: Di Feb 10, 2004 5:48 am
- Wohnort: Bayreuth
Siehe Maske FRMV_BSLO
Skript des Buttons:
Begin
if ColorDialog_1.Execute() then
begin
MyColor := ColorDialog_1.Color;
if (q_1.state = dssInsert) or (q_1.state = dssEdit) then
begin
Edit_1.Color := MyColor;
M := q_1.FieldByName('LOHNFARBE');
Edit_1.Color := MyColor;
M.AsInteger := MyColor;
end;
end;
End;
Anmerkung: Variablen deklarieren sich zur Laufzeit selbständig.
Skript des Buttons:
Begin
if ColorDialog_1.Execute() then
begin
MyColor := ColorDialog_1.Color;
if (q_1.state = dssInsert) or (q_1.state = dssEdit) then
begin
Edit_1.Color := MyColor;
M := q_1.FieldByName('LOHNFARBE');
Edit_1.Color := MyColor;
M.AsInteger := MyColor;
end;
end;
End;
Anmerkung: Variablen deklarieren sich zur Laufzeit selbständig.