Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
15. Feb 2009
Indem ich dasKey := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData)); einfach auskommentiert habe :D
nicht haun bitte =P
Jetzt läufts supper, danke schön =)
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
15. Feb 2009
Muss mich leider doch noch mal melden.
procedure TfMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
Key : TShortCut;
begin
Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
if (Key = fPlayerSteuerung.HkP1Left.HotKey) then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
15. Feb 2009
genau das hatte ich vor, wusste nur nich das es bereits eine vorgefertigte Komponente gibt.
Habe es bereits so:
procedure TfPlayerSteuerung.btnFertigClick(Sender: TObject);
begin
if (edtLinks.Text <> '') and (edtRechts.Text <> '') then
begin
fMain.HotKeyRegister;
fMain.Enabled := true;
fPlayerSteuerung.Close;
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
15. Feb 2009
Mit der ersten Prozedure will ich die Taste speichern.
Mit der 2. Prozedure will ich erreichen, dass wenn die Taste gedrükt wird, eine ShowMessage kommt.
Nur leider geht das
case key of
VK_ + vKey : ShowMessage('Hallo');
end;
nicht =(
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
15. Feb 2009
procedure TfPlayerSteuerung.edtLinksKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edtLinks.Text := inttostr(Key);
vKey := inttostr(Key);
end;
bei dieser Procedure kommt für E jetzt die Zahl 69 heraus.
Heißt das, dass wenn ich dann beispielsweise abfrage
Forum: Object-Pascal / Delphi-Language
Delphi
by MaToBe,
15. Feb 2009
Guten Tag,
ich bins mal wieder, tut mir leid das ich immer so viele Fragen hab aber ich weiß auch nie genau nach was ich suchen soll da die Suche mir nie die ganze Wahrheit offenbart :D
Also ich bräuchte eine Function, die ich in die OnKeyPress Prozedur reinschreiben kann.
Diese Function sollte mir dann genau die Taste ausgeben, die als letztes gedrückt wurde und in ein Edit-Feld...