Кнопки

[)Игнат(]

Как сделать, чтоб кнопка убегала от мыши не по форме, а по всему экрану?

[Alex21]

Форму сделать размером с кнопку, и гонять не кнопку, а саму форму.

Да, и еще form1.BorderStyle:=bsNone;

[)Игнат(]

Да, и еще form1.BorderStyle:=bsNone;

это я знаю! а не подскажешь(те) как форму гонять?

[Alex21]

Событие кнопки MouseMove.
И меняем свойства Left и Top у формы. Случайно или своим алгоритмом.

[)Игнат(]

Случайно всмысле random?

[GAGARIN-NEW]

Сообщение от )Игнат(

Как сделать, чтоб кнопка убегала от мыши не по форме, а по всему экрану?

Видно очень полезная программа будет , да и незабудь что tabstop:=false; иначе можно будет нажать её с помощью клавиатуры)

[DeDoK]

Почитай Библию Делфи издание второе - там четко описывался именно этот пример. В разделе Button

[Veiron]

Написал, получилось забавно, особенно если за место кнопки поместить картинку...

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Width:=Button1.Width;
Form1.Height:=Button1.Height;
Randomize;
Form1.Top:=StrToInt(FloatToStr(Int((Screen.Height-Button1.Height)*random)));
Form1.Left:=StrToInt(FloatToStr(Int((Screen.Width-Button1.Width)*random)));
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Randomize;
Form1.Top:=StrToInt(FloatToStr(Int((Screen.Height-Button1.Height)*random)));
Form1.Left:=StrToInt(FloatToStr(Int((Screen.Width-Button1.Width)*random)));
end;

...как можно убрать с панели вкладку с программой?

[SG13]

Var EStile:integer;
begin
EStile:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SerWindowLong(Application.Handle, GWL_EXTYLE, EStyle or WS_EX_ToolWindow);
end;

Не знаю сам не проверял но должно получиться!

[Veiron]

К сожалению нет ошибка при компиляции на "SerWindowLong"