Linktár

Delphi: Enter használata a formokon

Programozással kapcsolatos cikkek / Delphi (1647 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;