Editfeld mit Closebutton - Wie macht man sowas?

[himitsu]

kopieren und auf Form einfügen

Delphi-Quellcode:

object Panel1: TPanel
  Left = 24
  Top = 40
  Width = 145
  Height = 21
  BevelOuter = bvNone
  BorderStyle = bsSingle
  Color = clWindow
  ParentBackground = False
  TabOrder = 0
  DesignSize = (
    141
    17)
  object Edit1: TEdit
    Left = 0
    Top = 0
    Width = 121
    Height = 17
    Anchors = [akLeft, akTop, akRight, akBottom]
    AutoSize = False
    BorderStyle = bsNone
    TabOrder = 0
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 125
    Top = 1
    Width = 15
    Height = 15
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = 'r'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Marlett'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
end
object Button2: TButton
  Left = 24
  Top = 96
  Width = 75
  Height = 25
  Caption = 'Button2'
  TabOrder = 1
  OnClick = Button2Click
end

Delphi-Quellcode:

Procedure TForm1.Button2Click(Sender: TObject);
  Begin
    Panel1.Tag := (Panel1.Tag + 1) mod 2;
    Button1.Visible := Panel1.Tag = 0;
    If Button1.Visible Then Edit1.Width := Button1.Left - 2
    Else Edit1.Width := Panel1.ClientWidth;
  End;

oder die Billig-Version
> ein Edit
> rechts einen Button drüberlegen
> und diesen nur noch ein-/ausblenden (visible)


[edit] noch schnell die Anchors gesetzt

[edit=mkinzler]Code-Tag mit Delphi-Tag ersetzt Mfg, mkinzler[/edit]