Delphi-Quellcode:
type
TMainForm = class(TForm)
// ...
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
private
{ Private declarations }
public
{ Public declarations }
end;
Die eigentliche Prozedur (im implemenation-Teil):
code:
Delphi-Quellcode:
procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
if (Message.Result = htClient) and
(ControlAtPos(Point(Message.xPos, Message.yPos), True, True) <> nil)
then
Message.Result := htCaption;
end;
Stichwort für Suche: Titelleiste
[edit=fkerber] "Suchwort" eingefügt; Mfg, fkerber[/edit]
[edit=fkerber] Neu abgespeichert wg. Code-Highlighting. Mfg, fkerber[/edit]