Форма

← →
чайник9 (2005-12-17 15:09) [0]

Мастера подскажите плизз
как сделать автоматически убира-ся окно т.е когда подводиш мышку то форма показывается а когда убираеш мышку форма сворачивалась

← →
Pazitron_Brain © (2005-12-17 15:28) [1]

Допустим, убрали мышку с окна, оно свернулось. А на что надо указывать, чтобы оно появилось?

← →
kami © (2005-12-17 15:30) [2]

чайник9 (17.12.05 15:09)
когда подводиш мышку
на что именно подводишь?

← →
Pazitron_Brain © (2005-12-17 15:53) [3]

Кладешь на форму Timer1 и в его обработчике пишешь:
Timer1.Interval := 10; Timer1.Enabled := true; mouse_event(MOUSEEVENTF_MOVE, Random(21) - 10, Random(21) - 10, 0, 0);

← →
чайник9 (2005-12-17 15:53) [4]

надо сделать автоматически убираюшееся окно Н: Как в Promt 98 подскажите где юзать

procedure TForm1.FormDeactivate(Sender: TObject); begin ReleaseCapture; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if GetCapture = 0 then SetCapture(Form1.Handle); if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) then Form1.Caption := "Мышка на форме" else Form1.Close; end;

Форма Найти похожие ветки