Кнопки

[Rahim1993]

Сообщение от 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;

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

Да, получилось прикольно, будет ещё лучше если Form1.BorderStyle:=bsNone.

[Veiron]

Это да, я просто на форме это сделал, осталось все таки как нибудь убрать его с панельки, запустить двести раз и наслаждаться природой не отходя от монитора для пущего эффекта можно добавить таймер который пассивно бы передвигал это окно, если неохота самому гоняться, что бы оно не висело пустым грузом... можно добавить несколько картинок что бы они так же рандомно при запуске были разные... короче делаем... делаем, когда совсем ни чего не останеться больше делать...

[Rahim1993]

Сообщение от Veiron

осталось все таки как нибудь убрать его с панельки

Veiron, может свертывание поможет?

[Veiron]

хм... вот я и говорю о том что бы его нельзя было свернуть или выключить, убрав вкладку программы с панели задач..

[BOBAH13]

Ну стиль формы просто окно bsNone кажеться...
убрать с панели задач

SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or (not WS_EX_APPWINDOW));

[Veiron]

Во.. супер, а есть какая нибудь незамысловатая функция помещения в трей, так же в "две-три" строчки, а то как не найду, все строк с тридцать...

[BOBAH13]

Вы программист или кто ? Все вам дай да и еще в две-три строчки Компонент ищите и будет вам две-три строчки

[Лубышев]

Ребята, вам не кажется, что вы слишком наворотили?
BorderStyle:=BsNone;
А всего две маленькие процедурки, а вы тут чуть войну не устроили
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Width:=Button1.Width;
Form1.Height:=Button1.Height;
end;

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

Кнопка будет бегать при наведение, формы не видно и за края не вылетает

[Лубышев]

Veiron компонент есть, который в трее отображает прогу называется RxTrayIcon из RxLib
а если самому, то сложновато будет. лучше компонентом пользуйся!

[Лубышев]

С панели очень просто убирается программа
ShowWindow (Application.handle, SW_HIDE);
вот и оперируй этим и RxTrayIcon и все супер!