Николай
Николай

что это такое if Button1.Left>10 then Button1.Left:=Button1.Left-10;



if Button1.Left>10 then
Button1.Left:=Button1.Left-10;

да, я тоже так подумала, в таком случае эта процедура не срабатывает и lazarus не выдает ошибку. а процедуры которая двигает кнопку до положения if Button1.Left>10 then. нет и как же так? сама она чтоли.

Ш.
Шеро .....

полагаю, что код на делфи и вроде как:
если отступ у кнопки слева свыше 10, то следует установить его на -10
но всёж в своих утверждениях не уверен ибо не помню значение .Left...

СГ
Светлана Голубева

так и в чем проблема? Если левый отступ (от края формы) у кнопки больше 10 тогда уменьшить отступ на 10. У меня все работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Left>10 then
Button1.Left:=Button1.Left-10;
end;

end.

Похожие вопросы
Паскаль. Можно в if-then-else после if писать два раза or? а условие какой-нибудь буквой заменять?
Метод к задаче + if then else.
программное нажатие клавишы в дельфи ( без условий if then) тупое программное нажатие!
Как записать на С++ это выражение - if (x*y) in [1,9] then Write(Matrix[3-X+1,3-Y+1],' ')
Помогите с Делфи! if a>=d and b<=e then ShowMessage('Перший вміщується'); Подчеркивает первую стр. Что не так?
Помогите с кодом IF form2.Edit2.Text='text' and form2.Edit1.Text='text' then form1.show;
IF THEN ELSE! (Делфи) Кто разбирается,подскажите
Вопрос по Delphi. нужна помощь нужно через функию if,then,else показать что если if Sqr (D) = целое число then
как обратиться к компоненте файла допустим в операторе if ...mod 2=0 then вместо точек нужно как то обратиться к комп..
if Fam=$28 then Usr3:=(TByte($FF) shr 5) and 3; Что такое "and 3"??? И как это оформить на c#?