0
unit U6_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Left:= 0;
Button1.Top:=0;
Form1.Color:=clRed;

end;
end.

Что нужно прописать чтобы при втором щелчке на кнопку она оказалась в правом верхнем углу и чтобы она изменила свой размер?

Обновление

procedure TForm1.Button1Click(Sender: TObject);
begin
  if n=0 then
  begin
    Button1.Left:= 0;
    Button1.Top:=0;
    Form1.Color:=clRed;
    n:=1;
  end
  else
  begin
    Button1.Width := Button1.Width * 2;
    Button1.Height := Button1.Height * 2;
    Button1.Left:= ClientWidth - Button1.Width;
    Button1.Top:=0;
    Form1.Color:=clGreen;
    n:=0;
  end;
end;
end.

Хочу сделать так чтобы при третьем щелчке на кнопку форма оказалась в правом нижнем углу и чтобы при четвертом щелчке форма оказалась в левом нижнем углу. Как это реализовать?

0

1 ответ 1

2

попробуй поставить флажок:

if flag=0
then begin
flag:=1;
...
end else begin
flag=0;
...
end;

Или используй Tag у button - не придется переменную создавать)

Обновление

TForm1.Button1Click(Sender: TObject);
begin
    case n of
        0:  begin
            Button1.Left:=0;
            Button1.Top:=0;
            Form1.Color:=clRed;
            n:=1;
            end;
        1:  begin
            Button1.Width:=Button1.Width * 2;
            Button1.Height := Button1.Height * 2;
            Button1.Left:= ClientWidth - Button1.Width;
            Button1.Top:=0;
            Form1.Color:=clGreen;
            n:=2;
        2:  begin
            ...
            n=3;
            end;
        3:  begin
            ...
            n:=0;
            end;
    end;

end;
3
  • @Luchfan12 т.е. 4 клика и 4 местоположения кнопки? 22 мая 2014 в 4:47
  • И будет кнопка по кругу бегать) 22 мая 2014 в 4:52
  • Получилось!
    – Luchfan1
    22 мая 2014 в 5:30

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.