- 136 名前：デフォルトの名無しさん mailto:sage [2006/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;
