Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MaBuSE,
15. Dez 2004
Hier ist ein Beispiel mit fast allen Controlls:
(das Label "Benutzerdefinierte Farben:" habe ich nicht herausgefunden)
procedure TForm1.ColorDialog1Show(Sender: TObject);
var
i: word;
begin
SetWindowText(ColorDialog1.Handle, 'Mein Farbendialog');
SetWindowText(GetDlgItem(ColorDialog1.Handle, 1), '&Ok');
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by MaBuSE,
14. Dez 2004
Hmmm, warum?
Geht doch:
...
procedure TForm1.ColorDialog1Show(Sender: TObject);
begin
SetWindowText(GetDlgItem(ColorDialog1.Handle, idOk), '&Fertig');
SetWindowText(GetDlgItem(ColorDialog1.Handle, idCancel), '&Wegmache');
SetWindowText(ColorDialog1.Handle, 'Bunt');
end;