单从控件来说

大舒

lazarus感觉好像是VB。。。

直接令属性等于多少。。

procedure TForm1.Button1Click(Sender: TObject);
begin
     if Button1.tag =0 then
   begin
     Button1.caption := 'Press again';
     Button1.tag := 1 ;
     Button1.Top :=3 ;//自己添加的一行 果然实现了位置移到最上面。。
   end else
   begin
     Button1.caption := 'Press';
     Button1.tag := 0
   end

end;                     

毕竟楼主只玩过VB。。

还有lazarus，

玩的别的python之类的都不带界面也不好说。。