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:

Zitat von Garfield

Delphi-Quellcode:

      OnKeyPress := EditKeyPress;

Delphi-Quellcode:

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:

Zitat von STS301

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

Versuch mal

Delphi-Quellcode:

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... :-D

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...

Delphi-Quellcode:

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

:hi:

[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 :wink:

kann man es nicht auch so schreiben?

Delphi-Quellcode:

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

@DeddyH die Briefmarke hat mir besser gefallen :( :(

[Garfield]

Zitat:

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:

Delphi-Quellcode:

(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:

Zitat von STS301

@DeddyH die Briefmarke hat mir besser gefallen :( :(

Ein bisschen Abwechslung muss sein :cheer:

[edit]

Zitat:

Zitat von STS301

Delphi-Quellcode:

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

Fast ;)

Delphi-Quellcode:

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

[/edit]