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;