Problem OpenDialog mit ColorDialog

[festus01]

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

[admin]

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.

[festus01]

Hallo Admin,

vielen Dank für die Info. Es funktioniert jetzt.

Da komm ich dann noch mal auf die Doku zurück. Wann wird es da wohl ein Update geben und stehen solche Sachen dann auch drin

MfG

KDP

[admin]

Vor Weihnachten. Und Ja, soclhe Sachen stehen dann auch drin.