Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by JnZn558,
12. Aug 2010
danke sehr, dies hat mich aufgeklaert
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by JnZn558,
10. Aug 2010
danke sehr
so Ich hab es nun so ausprobiert, mit Ctrl klappts wunderbar, bei Alt Taste geht bei 2. druecken nicht wie bei 1.mal, zweites mal druecken muss die alt taste laenger gedrueckt halten, bis es die farbe aendert warum ist das so??
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssAlt in Shift then Form1.Color := clAqua;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by JnZn558,
10. Aug 2010
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
FormColor := Form1.Color;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then Form1.Color := clAqua;