Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/Strings/Position.pas

Pascal/Delphi Source File | 1998-02-13 | 394 b | 12 lines

var
  W: Word;    { Result of MessageDlgPos }
  P: TPoint;  { Coordinate X, Y record }
begin
  P.X := 0;  { Assign client X value }
  P.Y := 0;  { Assign client Y value }
  P := ClientToScreen(P);  { Convert P to screen coordinates }
  W := MessageDlgPos('Function: MessageDlg',
    mtInformation, [mbYes, mbNo, mbIgnore], 0,
    P.X, P.Y);  { Pass converted X, Y to function }
end;