TMoveToDialog.OnShow

TMoveToDialog

OnShow: TNotifyEvent;

Описание:

Генерируется перед открытием окна диалога.

Пример:

procedure TForm1.Button1Click(Sender: TObject);

var Stored: TDoublePoint;

begin

MoveToDialog1.MapView := MapView1;

Stored.X:= MapView1. MapLeft+MapView1.ClientWidth div 2;

Stored.Y:= MapView1. MapTop+MapView1.ClientHeight div 2;

 MoveToDialog1.Marker[PP_PICTURE]:= Stored;

if not MoveToDialog1.Execute then

   MoveToDialog1.Marker[PP_PICTURE]:= Stored;

end;

procedure TForm1. MoveToDialog1FormatChanged(Sender: TObject);

begin

 with MoveToDialog1 do

case DisplayFormat of

   dfDegrees: StatusBar1.Text:= Format('%.4f, %.4f', [Marker[PP_GEO].X*180/Pi, Marker[PP_GEO].Y*180/Pi]);

   dfPlane: StatusBar1.Text:= Format('%.4f, %.4f', [Marker[PP_PLANE].X, Marker[PP_PLANE].Y]);

   dfRadians: StatusBar1.Text:= Format('%.6f, %.6f', [Marker[PP_GEO].X, Marker[PP_GEO].Y])

   … и т.д…

end;

end;