Геометрия Delphi

[Alex Cones]

Ни как не соображу, как описать вхождение курсора в процедуре оnMouseMove что бы выполнялась процедура при вхождении в область кнопки. С остальными (прямоугольными) все достаточно просто, а с такой формой...

P.S. Левый край начала кнопки - 52
Правый край кнопки - 199
Верхний край - 168
Нижний край - 132

P.P.S. Я так думаю, что проще будет сначала задать попадание в прямоугольник кнопки (верхнюю часть до закругления), а затем в нижнюю часть круга (по которому рисовалась кнопка)...

[VVM]

Можно попробовать анализировать цвет пикселя под курсором. Или, если создается кнопка нестандартной формы - использовать регионы. http://programmersforum.ru/showthrea...%E3%E8%EE%ED#9

[Alex Cones]

Анализировать цвет конечно штука хорошая, но свойство Pixels о-о-очень медленное и при судорожных подергиваниях мыши не действует, придется все-таки юзать регионы или уравнение окружности.

[Stilet]

Оч просто. уже обсуждалось многократно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TButton=class(StdCtrls.TButton)
   procedure w(var w:TMessage); message CM_MOUSEENTER;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TButton }

procedure TButton.w(var w: TMessage);
begin
 caption:='Вошло мышко в булку';
end;

end.

[Alex Cones]

Ну вообще-то этот способ не покатит по одной простой причине - кнопок как таковых на форме нет. (8-)) Для отображения всех деталей формы я использую одну пикчу и юзаю canvas.draw. Ладно, уже разобрался:

If ((Sqr(X-374)+Sqr(Y-275)<Sqr(100)) And (Y>338))

. Темку можно того... Закрыть.