Delphi: Enter használata a formokon

Programozással kapcsolatos cikkek / Delphi (896 katt)

Ha azt szeretnénk, hogy egy form mezői (pl. editorok) között ne csak egérrel vagy a Tab billentyűvel lehessen lépkedni, hanem az Enter leütésével is, akkor a következőket kell tenni:

- a form KeyPreview tulajdonságát True-ra kell állítani

- a form OnKeyPress eseménye alá a következő kódot kell írni:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = chr(VK_RETURN)) then

begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;



Ha azt szeretnénk, hogy pl. a TMemo komponensek esetén a program az Enter leütésére ne lépjen ki a mezőből, akkor az előző kódot a következőképpen kell módosítani:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (ActiveControl is TMemo) then exit;

if (Key = chr(VK_RETURN)) then

begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;



Előző oldal Kapitány