Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
25. Aug 2005
Hallo Lars,
die Markierung des Textinhaltes ist an das Ereignis OnEnter gekoppelt:
procedure TDemoForm.TestEditEnter(Sender: TObject);
begin
with Sender as TCustomEdit do
SelLength := 0;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
24. Aug 2005
Hallo Lars,
wenn du das Verlassen eines Controls per Tab verhindern möchtest, dann kannst du eine OnExit Routine benutzen:
procedure TDemoForm.TestEditExit(Sender: TObject);
begin
with Sender as TWinControl do
SetFocus;
end;