[Delas]

Привет Всем!!!!

Вот хочу сделать такое пасхальное яйцо в своей програмке, но незнаю как
Вообщем нада чтоб при двойном клике на определенной области формы делалось что то(проигривался звук)Звук я прикручу, но вот как сделать двойной клик. Пусть будет это правый верхний угол формы!!!
Помогите как это сделать у кого есть идеи!!!


P.S. сделать невидимую кнопку или панельку там вроде можна но это уже как запасной вариант хочется чтоб по координатам

[~TB~]

Код:

var
  fx, fy: Integer;
implementation

procedure TMainForm.FormDblClick(Sender: TObject);
begin
  if (fx=MainForm.Width) and (fy=MainForm.Height) then
  // что-то делаем
end;

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  fx:=X;
  fy:=Y;
end;

Примерно так.

[Pilot_Red]

На..................................

[Pilot_Red]

чуть опоздал)))))), но суть та же

[Raskolnikov]

API функция PtInRect в обработчике события OnDblClick формы

Код:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  if PtInRect(Rect(10, 15, 150, 200), Mouse.CursorPos) then
  begin
    ShowMessage('Попал!');
  end;
end;

Естественно, вместо Rect(10, 15, 150, 200) указать свой прямоугольник, а между begin и end - нужные действия.

[Delas]

Народ спасибо оперативно Вы все откликнулись

[Raskolnikov]

Хотя лучше так, используя обработчик OnMouseDown:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssDouble in Shift) and PtInRect(Rect(20, 20, 100, 100), Point(X, Y)) then
  begin
    ShowMessage('Попал!');
  end;
end;

[Delas]

Спасибо щас заценим