Handle

← →
Ivolg © (2006-07-03 22:30) [0]

Как можно получить Handle чуждого окна, при этом выделив его ?

← →
PSPF2003 © (2006-07-03 22:36) [1]

procedure TForm1.Timer1Timer(Sender: TObject);
var
WindowText: array[0..255] of char; {символьный массив для хранения текста,
связянного с окном}
TheWindow: HWND; {содержит дескриптор окна}
pt: TPoint; {переменная для хранения текущих координат указателя мыши}

begin
{определяем координаты указателя мыши}
pt := Mouse.CursorPos;
//pt.Y := y;
{вычисляем дескриптор окна формы,
в область которого попадают координаты указателя мыши}
TheWindow := WindowFromPoint(pt);
{получаем текст, связянный с окном}
If (GetWindowText(TheWindow, WindowText, 255))<>0 then begin
{...и показываем этот текст}
Edit1.Text := WindowText ;
Edit2.Text := IntToStr(TheWindow)
end
else begin
Edit1.Text := "Данное окно не имеет описания";
Edit2.Text := IntToStr(TheWindow);
end;
end;

Как рисовать незнаю

← →
PSPF2003 © (2006-07-03 22:43) [2]

Возможно это тебе поможет

Можно ли рисовать на рамке формы?
Обрабатывайте событие WM_NCPAINT. В примере рамка обводится красной линией
толщиной в 1 пиксел.

Пример:

type
TForm1 = class(TForm)
private
{Private declarations}
procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
public
{Public declarations}
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
dc : hDc;
Pen : hPen;
OldPen : hPen;
OldBrush : hBrush;
begin
inherited;
dc := GetWindowDC(Handle);
msg.Result := 1;
Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0,0, Form1.Width, Form1.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
end;

← →
Ivolg © (2006-07-03 22:51) [3]

>PSPF2003

Спасибо, код работает... Мне Handle окна нужен бы для того, чтобы изменить размер окна...

← →
Ivolg © (2006-07-03 22:53) [4]

А по названию окна можно как-нибудь узнать его Handle ?

← →
PSPF2003 © (2006-07-03 23:00) [5]

FindWindow("Класс окна можно nill", "Заголовок окна можно nill")

← →
Ivolg © (2006-07-03 23:04) [6]

>PSPF2003

Спасибо... )

> PSPF2003 © (03.07.06 23:00) [5]

> FindWindow("Класс окна можно nill", "Заголовок окна можно
> nill")

И не надо путать nil vs null.

--
Regards, LVT.

> И не надо путать nil vs null.

Извиняюсь все время такие ляпы делаю…. :(

> PSPF2003 © (03.07.06 23:21) [8]

> Извиняюсь

Звучит лучше, чем "извеняюсь",
но, гораздо хужей чем "извините", IMHO.

--
Regargs, LVT.

Handle Найти похожие ветки