Скачать: CL | DM;

Как сделать кнопку Пуск/Start поменьше?   Найти похожие ветки 

← →
Igorek ©   (2002-11-19 12:55) [0]

Наверно для начала нужно как-то найти оконный элемент, а потом использовать SetWindowLongEx. Так вот как найти хендл этой кнопки? Сразу скажу, что основательно не копался, так что извините за простой вопрос.

---

← →
Igorek ©   (2002-11-19 12:58) [1]

Сорри, забыл про функцию SetWindowPos. Но как же с хендлом?

---

← →
MBo ©   (2002-11-19 12:59) [2]

findwindow
WinSight поможет найти имя класса

---

← →
Igorek ©   (2002-11-19 13:04) [3]

> MBo © (19.11.02 12:59)

Имя класса - Button. Spy++ помог. Но что с того? Это ж не идентифицирует кнопку однозначно.

---

← →
MBo ©   (2002-11-19 13:06) [4]

ее парент - shell_traywnd или что-то вроде того

---

← →
~   (2002-11-19 13:11) [5]

H : THandle;

H:=FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);

---

← →
AL2002 ©   (2002-11-19 13:11) [6]

А может проще "Свойства экрана" поменять?
Кажись, размер кнопок уменьшить...

---

← →
Igorek ©   (2002-11-19 13:25) [7]

Изменить то изменил, но система вновь возвращает в прежнее состояние... :-(

---

← →
Igorek ©   (2002-11-19 13:29) [8]

procedure TForm1.Button1Click(Sender: TObject);
var
H : THandle;
R: TRect;
P: TPoint;
begin
H := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
GetWindowRect(H, R);
P := Point(R.Left, R.Top);
windows.screentoclient(H, P);
SetWindowPos(H, 0, P.X, P.Y, 20, 20, SWP_NOZORDER);
end;


---

← →
France   (2002-11-19 13:37) [9]

Прикольно! Западло можно сделать кому-нибудь...

---

← →
Igorek ©   (2002-11-19 13:38) [10]

Ставлю setWindowText(H, "") - система все равно восстанавливает
Ставлю левее - что б часть была видна - тоже не помогает :-(

---

← →
Igorek ©   (2002-11-19 13:40) [11]

Получилось поставить левее, но тулбар не налазит на свободное пространство :-(

---

← →
France   (2002-11-19 13:45) [12]

А интересно, можно ли свою картинку вместо флажка на эту кнопку поместить?

---

← →
Igorek ©   (2002-11-19 13:47) [13]

var
H : THandle;
R: TRect;
P: TPoint;
begin
H := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
GetWindowRect(H, R);
P := Point(R.Left, R.Top);
windows.screentoclient(H, P);
SetWindowPos(H, 0, -40, P.Y, 0, 0, SWP_NOZORDER + SWP_NOSIZE);
// setWindowtext(H, "");
end;


---

← →
AL2002 ©   (2002-11-19 13:49) [14]

> France (19.11.02 13:45)
> А интересно, можно ли свою картинку вместо флажка на эту
> кнопку поместить?

Можно.

---

← →
France   (2002-11-19 14:31) [15]

> AL2002 © (19.11.02 13:49)
И как же? Приведите код, пожалуйста... Очень хочется попробовать.

---

← →
AL2002 ©   (2002-11-19 14:43) [16]

StartButton: hWnd;
OldBitmap: THandle;
NewImage : TPicture;

StartButton := FindWindowEx
(FindWindow(
"Shell_TrayWnd", nil),
0,"Button", nil);
OldBitmap := SendMessage(StartButton,
BM_SetImage, 0,
NewImage.Bitmap.Handle);

Что-то в таком духе.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c