Forum: Object-Pascal / Delphi-Language
Delphi
by Garfield,
1. Jan 2008
Da steht ja
...
with (Components as TEdit) do
begin
...
OnKeyPress := EditKeyPress;
end;
...
end;
was so viel ist wie:
Forum: Object-Pascal / Delphi-Language
Delphi
by Garfield,
1. Jan 2008
Geht natürlich auch. Und wenn Du schon minimierst, kannst Du das "begin end" auch weglassen. Das ";" reicht.
Forum: Object-Pascal / Delphi-Language
Delphi
by Garfield,
1. Jan 2008
Wenn es für alle TEdits gelten soll, kann man es im FormCreate so machen:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
...
begin
...
for i := 0 to ComponentCount - 1