Edit disablen

[Sharky]

Zitat von FAlter:

...Aber ich würde auch lieber eine Variable verwenden.

Ich auch

Aber wenn "unbedingt" verhindert werden soll das ein Edit den Focus bekommt und es nicht die Optik von Disabled haben soll: Einfach über die Eigenschaft .Tag festelegen ob oder ob nicht. (0=darf Focus bekommen, 1 = darf den Focus nicht bekommen). Dann allen Edits ein .OnEnter zuweisen und dort dieses machen:

Delphi-Quellcode:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  If ((Sender As TEdit).Tag = 1) then
  begin
    Self.Perform(WM_NEXTDLGCTL,0,0);
  end;
end;

Hübsch hässlich das ist