Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
2. Jan 2008
Ein bisschen Abwechslung muss sein :cheer:
Fast ;)
case key of
#1:; //mach nichts (ohne Gleichheitszeichen)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Jan 2008
Versuch mal Perform(WM_NEXTDLGCTL,0,0)
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
1. Jan 2008
So fände ich es besser lesbar:if not (Key in ) then
Key := #0;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
31. Dez 2007
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 3 do begin
with TEdit(FindComponent('Edit' + IntToStr(i))) do
begin
MaxLength := 10;
CharCase := ecUpperCase;
Text := 'Hallo';
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
31. Dez 2007
Was soll das denn bewirken (so es denn ginge)?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
30. Dez 2007
Stell CharCase auf ecUpperCase.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
30. Dez 2007
Zur Länge schau Dir mal MaxLength an, aber was meinst Du mit Blockbuchstaben?