06/09/12 20:17:27
procedure TForm2.Button1Click(Sender: TObject);
begin
Button1.Visible:=not Button1.Visible;
Button2.Visible:=not Button2.Visible;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Button2.OnEnter:=Button1Click;
Button2.Visible:=False;
end;