Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi edit-enter

**egon.kaschuba**

procedure Tsuchform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 then self.perform(WM_NEXTDLGCTL,0,0);
.
.
. Weitere anweisungen
end;

Nochmals Gruß egon.kaschuba

egon.kaschuba Registriert seit: 2. Jun 2006 Ort: Buxtehude 80 Beiträge Delphi 7 Architect	#15 Re: edit-enter 19. Jun 2006, 21:59 procedure Tsuchform.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Key = #13 then self.perform(WM_NEXTDLGCTL,0,0); . . . Weitere anweisungen end; Nochmals Gruß egon.kaschuba Glück ist das einzige was sich verdoppelt,wenn man es teilt.
	Zitat

Einzelnen Beitrag anzeigen

Re: edit-enter