Suche Funktion um Fenster oder Controls zu selektieren

[zero_x]

Hallo Leute,

wie der eigentliche Titel schon sagt suche ich eine Funktion, um Fenster oder Controls zu selektieren. In einigen Programm wie z.B. in diesen: http://www.delphipraxis.net/internal...ct.php?t=17426 oder http://www.windows-spy.com/ kann man mit einem "Kreuz" auf Controls ziehen und die mit markieren.

Gibt es dazu Funktionen um genau dies umzusetzen?

zero_x

[RWarnecke]

Gehe doch über die Handles. Dazu suche die das Programm WinSpy von Toms hier in der DP.

Edit: Damit kannst Du auch Delphi-Code generieren.

[zero_x]

Hallo RWarnecke,

ich glaube du hast mich nicht richitig verstanden. Ich möchte diesen "Umrandung-Effekt" bei Fenstern oder Control, wie auch bei WinSpy erzielen.

zero_x

[toms]

Delphi-Quellcode:

procedure FrameWindow(Wnd: HWND);
var
  dc: HDC;
  rc: TRect;
  hOldPen, hOldBrush: HBrush;
begin
  if GetWindowRect(Wnd, rc) then
  begin
    dc := GetWindowDC(Wnd);
    if dc <> 0 then
    try
      SetROP2(dc, R2_NOTXORPEN);
      hOldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
      hOldPen := SelectObject(dc, CreatePen(PS_DASHDOT, 2, $00));
      with rc do
        Rectangle(dc, 1, 1, Right - Left, Bottom - Top);
      SelectObject(dc, hOldBrush);
      DeleteObject(SelectObject(dc, hOldPen));
    finally
      ReleaseDC(Wnd, dc);
    end;
  end;
end;

[zero_x]

Hallo toms,

vielen Dank

zero_x