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]