Go to English page

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in der Kategorie:
CodeLib → Programmierhilfen → Delphi

CodeLib Delphi: Edit-Control: Beim Klicken alles markieren
Dieses Verhalten ist sinnvoll bei Edit-Controls, die als Suchwort-Eingabe verwendet wird.

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if (Sender is TCustomEdit) and (TComponent(Sender).Tag = 1) then
  begin
    TCustomEdit(Sender).SelectAll;
    TComponent(Sender).Tag := 0;
  end;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  TComponent(Sender).Tag := 1;
end;
Daniel Marschall
ViaThinkSoft Mitbegründer
Autor: Daniel Marschall
Datum: 4. März 2019
Gelesen: 508 Mal