Форму на панель задач
my_name © (2004-07-08 22:18:00)
Подскажите как на панель задач (где длинные кнопочки)
поместить динамически создаваемую форму.
DeadMeat (2004-07-08 22:49:00) [1]
procedure ПоместитьФормуТудаГдеДлинныеКнопочки
(АНадо:boolean);
var bufrect:TRect;
clx,cly,clw,clh:integer;
begin
if not АНадо then exit;
SystemParametersInfo (SPI_GETWORKAREA,0,@bufrect,0);
clx:=bufrect.Left;
cly:=bufrect.Top;
clw:=bufrect.Right;
clh:=bufrect.Bottom;
if clx<>0 then
begin
ДинамическиСоздаваемаяФорма.Left:=0;
ДинамическиСоздаваемаяФорма.Top:=clh div 2;
end
else
if cly<>0 then
begin
ДинамическиСоздаваемаяФорма.Left:=clw div 2;
ДинамическиСоздаваемаяФорма.Top:=0;
end
else
if clh<>Screen.Height then
begin
ДинамическиСоздаваемаяФорма.Left:=clw div 2;
ДинамическиСоздаваемаяФорма.Top:=Screen.Height-ДинамическиСоздаваемаяФорма.Height
div 2;;
end
else
begin
ДинамическиСоздаваемаяФорма.Left:=Screen.Width-ДинамическиСоздаваемаяФорма.Width
div 2;
ДинамическиСоздаваемаяФорма.Top:=clh div 2;
end;
end;
А вот у меня короткие кнопочки..., так что писал почти
вслепую... и у меня это может не работать, поэтому учти таких
юзверей, когда программу будешь распространять...
З.Ы. ПЕрдупЕрждаю. Чтобы положить значек своей программы
туда, где часики, сходи на фак...
---
...Death Is Only The Begining...
Наверх 
ЧАТ |
Орешник |
|
