| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

кнопка прямо на рабочем столе [D5, Win95/98]

Страницы:   < 1 2 >

Doctor Deejay ©   (2002-07-02 00:19:00) 

Как добавить кнопку прямо на рабочий стол? И не только кнопку.
Если можно, то сразу с кодом :)

---

Alx2   (2002-07-08 07:53:00) [1]

>Mashinist © (07.07.02 00:54)
И как это я ослушался? :))

---

Mashinist   (2002-07-07 00:54:00) [2]

Уважаемый Игорь Швченко сказал ведь, что не надо их рисовать на рабочем столе ...

---

Alx2   (2002-07-02 15:05:00) [3]

А чтобы нажималась, попробуй на форму кинуть Panel1, на нее SpeedButton (именно типа TSpeedButton) и вот такой код засунь куда-нибудь:

Panel1.Parent := Nil;
Panel1.AutoSize := true;
Panel1.ParentWindow := GetDesktopWindow;


Теперь все нажимается :)

---

Alx2   (2002-07-02 15:00:00) [4]


procedure TForm1.Button1Click(Sender: TObject);
begin
With TButton.Create(Self) do
begin
Caption := "Test";
Left := Screen.Width div 2;
Top := Screen.Height div 2;
ParentWindow := GetDesktopWindow;
end;
end;

Токмо она нажиматься не будет :)

---

Doctor Deejay   (2002-07-02 14:52:00) [5]

sdram © (02.07.02 14:19)
http://delphi.mastak.ru/cgi-bin/download.pl?get=1024183674&n=1

Там нет исходных текстов. Это нужно реализовать именно програмно!!!

---

sdram   (2002-07-02 14:19:00) [6]

http://delphi.mastak.ru/cgi-bin/download.pl?get=1024183674&n=1

---

Игорь Шевченко   (2002-07-02 12:47:00) [7]

he GetDesktopWindow function returns the handle of the Windows desktop window. The desktop window covers the entire screen. The desktop window is the area on top of which all icons and other windows are painted.

HWND GetDesktopWindow(VOID)


Parameters

This function has no parameters.

Return Values

The return value is the handle of the desktop window.

---

Doctor Deejay   (2002-07-02 12:38:00) [8]

Тогда подскажите мне как поймать handle рабочего стола?

---

Игорь Шевченко   (2002-07-02 12:17:00) [9]

Doctor Deejay © (02.07.02 12:01)

>А вот ради прикола захотелось :)

Тогда и ответ, скорее всего, надо искать самостоятельно...Заодно и знаний наберетесь :-) Может, с другими поделитесь...

---

Doctor Deejay   (2002-07-02 12:01:00) [10]

А вот ради прикола захотелось :)

---

Игорь Шевченко   (2002-07-02 11:10:00) [11]

А если не секрет, что за задача такая, что потребовалось кнопки именно на рабочий стол пихать, а не на форму размером в кнопку ?

---

Doctor Deejay   (2002-07-02 11:03:00) [12]

А если нужно их туда впихнуть ?

---

Игорь Шевченко   (2002-07-02 10:54:00) [13]

Doctor Deejay © (02.07.02 10:16)


> какой вариант наиболее подходящий


Не рисовать их на рабочем столе

---

Doctor Deejay   (2002-07-02 10:16:00) [14]

А все-таки. Насчет кнопок, какой вариант наиболее подходящий

---

Игорь Шевченко   (2002-07-02 10:05:00) [15]

Работа чертиков основана на другом принципе. Для интересующихся - любая поисковая система по ключевому слову ScreenMate

---

Sniffer   (2002-07-02 09:49:00) [16]

Doctor Deejay ©
Тоже чёртиками балуешься?

---

Doctor Deejay   (2002-07-02 09:41:00) [17]

А не проще ли просто взя Handle рабочего стола и туда посылать.
На каком принципе тогда основана работа чёртиков, кот бегают по всему экрану, падают с окон и т.п.?

---

Mashinist   (2002-07-02 01:01:00) [18]

Если комп помощнее Р-75, то и не заметишь.
А так - отсылай форму на дно при событиях onActivate и onMouseMove.
Вот и вся любовь.

---

Doctor Deejay   (2002-07-02 00:56:00) [19]

Но ведь это будет жрать ресурсы!

---

Mashinist   (2002-07-02 00:51:00) [20]

P.S. Проверено в Delphi 6

---

Страницы:   < 1 2 >

Наверх