Editfeld mit Closebutton - Wie macht man sowas?

[uligerhardt]

Zitat von himitsu:

kopieren und auf Form einfügen

Zitat von himitsu:

der die Billig-Version

Das geht (IMNSHO) schneller, billiger und sauberer:

Delphi-Quellcode:

object Button2: TButton
  Left = 24
  Top = 96
  Width = 75
  Height = 25
  Caption = 'Button2'
  TabOrder = 1
  OnClick = Button2Click
end
object Edit1: TEdit
  Left = 24
  Top = 40
  Width = 145
  Height = 21
  TabOrder = 2
  Text = 'Edit1'
end
object Button1: TButton
  Left = 152
  Top = 17
  Width = 17
  Height = 17
  Caption = 'r'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Marlett'
  Font.Style = []
  ParentFont = False
  TabOrder = 0
end

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Parent := Edit1;
  Button1.Align := alRight;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible := not Button1.Visible;
end;