Вторник, 03.12.2024, 17:31 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
ПрикольчиГ
cool1Дата: Четверг, 15.07.2010, 15:27 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Прикол первый:
Будем делать прикол с кнопкой «нажми на меня», который при нажатии будет превращаться в сотни таких по всему экрану
Создём новый проект!!! Созмаюм кнопку , заменяем ей слово: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



За помощь ставьте +!


Сообщение отредактировал cool1 - Четверг, 15.07.2010, 15:28
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz