在窗口间移动按扭
// 在窗口間移動按扭?
procedure TForm1.Button1Click(Sender: TObject);
begin
?????if Button1.Parent=Form1 then
?????begin
???????button1.Caption:='單擊返回';
???????Button1.Parent:=Form2;
???????Button1.Left := 232;
???????Button1.Top := 88;
?????end
?????else
?????begin
???????button1.Caption:='單擊移動';
???????Button1.Parent:=Form1;
???????Button1.Left := 242;
???????Button1.Top := 111;
?????end;
end;
//注意怎么同時出來2個窗體
通過 Wiz 發布
procedure TForm1.Button1Click(Sender: TObject);
begin
?????if Button1.Parent=Form1 then
?????begin
???????button1.Caption:='單擊返回';
???????Button1.Parent:=Form2;
???????Button1.Left := 232;
???????Button1.Top := 88;
?????end
?????else
?????begin
???????button1.Caption:='單擊移動';
???????Button1.Parent:=Form1;
???????Button1.Left := 242;
???????Button1.Top := 111;
?????end;
end;
//注意怎么同時出來2個窗體
通過 Wiz 發布
轉載于:https://www.cnblogs.com/xe2011/archive/2012/05/26/2518901.html
總結
- 上一篇: UVa10006-Carmichael
- 下一篇: iPhone是否越狱的检测方法