Ja Form2 wird wie gewünscht beendet mit Timer1
Ich muss aber auch das Form2 mit einem anderen Timer genauso einblenden lassen
Wie kann ich nun Form2 aufrufen, wenn der Cursor auf Panel2 kommt?
Aber genuso mit einem anderen Timer und nicht so:
Delphi-Quellcode:
procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form2.ShowModal();
end;
Oder stimmt was
@OregonGhost gesagt hat und können wir dafür nicht machen ?
Also mit dem Code kann ich Form2 einblenden, wenn der Cursor auf Form1 kommt.
Ich möchte aber das Form2 einblenden, wenn der Cursor auf Panel2 kommt und nicht auf Form1 :
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if PtInRect(Rect(Left,Top,Left + Width, Top + Height),Mouse.CursorPos) then
Form2.ShowModal();
end;
Leider kann man keinen Timer auf Panel anlegen.
-----------