Einstellungen im Editfenster

[Garfield]

Geht natürlich auch. Und wenn Du schon minimierst, kannst Du das "begin end" auch weglassen. Das ";" reicht.

[DeddyH]

So fände ich es besser lesbar:

Delphi-Quellcode:

if not (Key in ['A'..'Z']) then
  Key := #0;

[STS301]

Zitat von Garfield:

      OnKeyPress := EditKeyPress; procedure EditKeyPress(Sender: TObject; var Key: Char); deklariert werden.

was bewirkt das OnKeyPress:=EditKeyPress?

was bewirkt das := #0

@bitsetter

ja genau, nur wie soll ich dem Programm dann sagen, dass er ins nächste Feld umspringen soll?

alles Gute im Neuen Jahr

[DeddyH]

Zitat von STS301:

ja genau, nur wie soll ich dem Programm dann sagen, dass er ins nächste Feld umspringen soll?

Versuch mal Perform(WM_NEXTDLGCTL,0,0)

[quendolineDD]

Sorry, hab die 2. Seite nicht gesehen

[haentschman]

Hallo...

Zitat:

was bewirkt das := #0

...setzt den Key auf 0... damit dein Computer nicht 'bing' macht beim Tastendruck.
... nimm es raus und du wirst hören...

Zitat:

Perform(WM_NEXTDLGCTL,0,0)

...setzt den Focus auf das nächste Feld in der Reihenfolge von TabOrder

ein bestimmtes Feld 'anspringen' z.B. mit...Edit1.SetFocus;
... noch eine Variante:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = VK_ESCAPE then --mach nichts;
  if key = VK_RETURN then --mach was;
  if key = VK_UP then --gehe zum nächsten Edit;
end;

...Delphi Hilfe ---> virtuelle Tastencodes

[STS301]

aha, mit ein bischen Grübeln werde ich hoffentlich jetzt was zu Stande bringen, wenn nicht, dann hört ihr sicher wieder von mir

kann man es nicht auch so schreiben?

Delphi-Quellcode:

case key of
   #1:=; //mach nichts

@DeddyH die Briefmarke hat mir besser gefallen

[Garfield]

Zitat von STS301:

was bewirkt das OnKeyPress:=EditKeyPress?

Da steht ja

Delphi-Quellcode:

...
    with (Components[i] as TEdit) do
    begin
      ...
      OnKeyPress := EditKeyPress;
    end;
  ...
end;

was so viel ist wie:
(Components[i] as TEdit).OnKeyPress := EditKeyPress; Das bedeutet, dem Ereignis OnKeyPress des TEdits wird die Procedure EditKeyPress zugewiesen. Heißt, wenn das Edit den Focus hat und eine Taste wird gedrückt wird diese Procedure ausgeführt.

[DeddyH]

Zitat von STS301:

@DeddyH die Briefmarke hat mir besser gefallen

Ein bisschen Abwechslung muss sein

[edit]

Zitat von STS301:

Delphi-Quellcode:

case key of
   #1:=; //mach nichts

Fast

Delphi-Quellcode:

case key of
   #1:; //mach nichts (ohne Gleichheitszeichen)

[/edit]