ENTER taste drückt button

[derPat17]

Hallo,

ich habe jetzt ein Programm fertig geschrieben und möchte der Konfort halber etwas einbauen^^

Egal wo und wann, soll wenn ich die Taste ENTER Drücke der Button (nennen wir ihn Prüfen) automatisch gedrückt werden?

MFG

[DeddyH]

Dann stell mal die "Default"-Eigenschaft des Buttons auf true.

[t.roller]

Delphi-Quellcode:

// Form1.keypreview:= true;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//if Key=#27 then Button1.Click;  // ESC wäre besser als RETURN
if Key=#13 then Button1.Click;  // RETURN
end;

[himitsu]

Button.Default=True <- Enter (inkl. Default-Button-Style)
Button.Cancel=True <- Escape
Button <- Space (drück mich, wenn ich aktiv bin)

Außer der Fokus ist z.B. in Memos, welche diese Tasten selber verarbeiten, wenn man Memo.WantReturns auf True stehen lässt. (Strg+Enter = immer Zeilenumbruch)

VK_RETURN
VK_ESCAPE

[derPat17]

Zitat:

Zitat von t.roller (Beitrag 1361471)

Delphi-Quellcode:

// Form1.keypreview:= true;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//if Key=#27 then Button1.Click;  // ESC wäre besser als RETURN
if Key=#13 then Button1.Click;  // RETURN
end;

einfach als extra procedure schreiben?
jedenfalls geht es net ^^

[derPat17]

Zitat:

Zitat von himitsu (Beitrag 1361477)

Button.Default=True <- Enter (inkl. Default-Button-Style)
Button.Cancel=True <- Escape
Button <- Space (drück mich, wenn ich aktiv bin)

Außer der Fokus ist z.B. in Memos, welche diese Tasten selber verarbeiten, wenn man Memo.WantReturns auf True stehen lässt. (Strg+Enter = immer Zeilenumbruch)

VK_RETURN
VK_ESCAPE

mal angenommen der fokus liegt auf einen anderen button ... wenn ich im edit feld bin geht ENTER.
wenn ich net im edit Feld bin, geht ENTER wiederum net...

ich möchte aber immer das EMTER haben ^^

[derPat17]

danke, habe das ganze mit ActiveControl:= Edit1; geregelt ^^

[t.roller]

Zitat:

Zitat von derPat17 (Beitrag 1361587)

Zitat:

Zitat von t.roller (Beitrag 1361471)

Delphi-Quellcode:

// Form1.keypreview:= true;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
//if Key=#27 then Button1.Click;  // ESC wäre besser als RETURN
if Key=#13 then Button1.Click;  // RETURN
end;

einfach als extra procedure schreiben?
jedenfalls geht es net ^^

Dir fehlen Grundlagen-Kenntnisse.