Позиционирование диалога открытия файла

← →
TGrey (2003-07-28 22:37) [0]

Здравствуйте мастера :). Подскажите как сделать, так чтобы диалог открытия файла (TOpenDialog ), при открытии позиционировался в центре своего родителя.

← →
Ученик (2003-07-29 01:04) [1]

procedure CenterDialog(aDialog, aParent : HWnd);

type
TMyOpenDialog = class(TOpenDialog)
protected
procedure WndProc(var Message: TMessage); override;
end;

procedure TMyOpenDialog.WndProc(var Message: TMessage);
begin
with Message do begin
if ((Msg = WM_NOTIFY) and (POFNotify(LParam)^.hdr.code = CDN_INITDONE)) or
((Msg = WM_UPDATEUISTATE) and (WParamLo = UIS_SET)) then begin
if Owner is TForm then
CenterDialog(GetParent(Handle), TForm(Owner).Handle)
end else
inherited
end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TMyOpenDialog.Create(Self).Execute
end;

Позиционирование диалога открытия файла Найти похожие ветки