hi marabu,
danke erstmal für deine antwort, ich hab das jetz folgendermaßen geloest.
Delphi-Quellcode:
procedure aufklappen;
begin
form1.label2.caption:='ok';
form1.height:=200;
end;
procedure zuklappen;
begin
form1.label2.caption:='false';
form1.Height:=30;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (mouse.cursorpos.x > form1.Left) and (mouse.cursorpos.x < form1.Left+form1.width) and
(mouse.CursorPos.y>form1.Top) and (mouse.CursorPos.y < form1.top+form1.height) then aufklappen
else zuklappen;
end;
ist aber sehr naja wie so ich es ausdrücken, einmal brauch ich nen timer und es muss doch auch enfacher gehn oder ?
das mit der message hab ich auch schon gelesen, aber ich hab wenig erfahrung mit
WMI, vielleicht kannst du mir ja da
noch etwas helfen. und deinen code mal etwas erläutern.
bis denne,
richard