Forum: Programmieren allgemein
by rokli,
25. Nov 2010
bin nochmal wieder mit einer Frage zum OnKeyDown da:
procedure TfraSQL.rieSQLKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
tag := 5;
if Key = Vk_F5 then begin
rieSQL.SelectAll; // <--- das geht!
end;
if (ssCtrl in Shift) and (Key = VkKeyScan('a')) then begin
Forum: Programmieren allgemein
by rokli,
23. Nov 2010
und jetzt auch noch den Namen falsch geschrieben
SORRY Marcel
Forum: Programmieren allgemein
by rokli,
23. Nov 2010
@meylen
ok - die Brille war TIEF-SCHWARZ ... da kann ich lange auf CTRL drücken, wenn ich SHIFT abfrage!
:oops: :oops: :oops:
Vielen DANK!
Rolf
Forum: Programmieren allgemein
by rokli,
23. Nov 2010
Moin zusammen!
Habe gerade die schwarze 8-) Brille auf:
// Stg-S = speichern
if (ssShift in Shift) and
((Key = 115) or (Key = 83)) then begin // <--- das krieg ich nicht mit
if savSQL.Execute then begin
rieSQL.Lines.SaveToFile(savSQL.FileName);
end;