Прикол первый:
Будем делать прикол с кнопкой «нажми на меня», который при нажатии будет превращаться в сотни таких по всему экрану
Создём новый проект!!! Созмаюм кнопку , заменяем ей слово:Caption на слова:НАЖМИ НА МЕНЯ.
В свойстве -- BorderStyle поменяйте на bsNone в свойстве-- FormStyle поменяйте на fsStayOnTop, чтобы появляющееся окношко было вставало поверх остальных!!!(какие мы злые)
А начинаем так: var
X: TForm1; // переменная типа TForm1 для создания нового окна
begin
X:= TForm1.Create(NIL); // создаем новую форму
ShowWindow(X.Handle, SW_SHOW); // показываем новую форму
ShowWindow(X.Button1.Handle, SW_SHOW); // показываем кнопку
X.Top:= Random(Screen.Height); // меняем положение окна
X.Left:= Random(Screen.Width);
X.Repaint; // Перерисовываем окно (чтобы оно отобразилось коррекно)
Sleep(100); //делаем паузу чтобы пользователь попытался что-то сделать
Button1.Click; // снова щелкаем по кнопке
end;
Потом окно перерисовываем, вызвав метод Repaint, передвигаем его.
procedure TForm1.FormCreate(Sender: TObject);
begin
Width:= Button1.Width; // Меняем размеры у главного окна
Height:= Button1.Height;
end;
В обработчике ОТОБРАЖЕНИЯ формы напиши следующее:
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE); // прячемся с панели задач
end;
Вот вприцине и конец!!!
ВАЖНО!
Если вам понравилась моя статья то пишите + в рейтинг! я буду этому рад =))) Вот ссыла на мой профайл http://delfcode.ru/index/8-5732
