проблема с кнопками

[blackstersl]

привет вот такая проблема есть button1 и button2 как мне сделать так чтобы совместить эти кнопки , тоесть чтоб когда button1 (down) показывал button2.

[Noor]

Если через down то ...

procedure TForm1.FormCreate(Sender: TObject);
begin
 //Если программно то так ...
Button2.Visible := False;  // ну а что бы не прописывать, можно поменять в Properties кнопки
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button2.Visible := True;
end;
end.

или так

procedure TForm1.FormCreate(Sender: TObject);
begin
 //Если программно то так ...
Button2.Visible := False;  // ну а что бы не прописывать, можно поменять в Properties кнопки
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Visible := True;
end;

[mihali4]

Чуток по-другому предложу (видимо, я автора понял иначе):

...
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button2.Visible:=True;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button2.Visible:=False;
end;

Или предыдущий вариант от Noor, но более интересный эффект:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Visible := not Button2.Visible;
end;

[puporev]

Если нужно совместить две кнопки, т. положить их друг на друга и по очереди показывать, то можно так:

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Show;
Button2.Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Hide;
Button2.Show;
end;

P.S. Забыл написать, что у верхней копки нужно выставить свойство Visible в False.