function MessageDlgEx(const AMsg: string; ADlgType: TMsgDlgType;
AButtons: TMsgDlgButtons; AParent: TForm): TModalResult;
var
MsgFrm: TForm;
begin
MsgFrm := CreateMessageDialog(AMsg, ADlgType, AButtons);
try
MsgFrm.Position := poDefaultSizeOnly;
MsgFrm.FormStyle := fsSystemStayOnTop;
MsgFrm.Left := AParent.Left + (AParent.Width - MsgFrm.Width) div 2;
MsgFrm.Top := AParent.Top + (AParent.Height - MsgFrm.Height) div 2;
Result := MsgFrm.ShowModal;
finally
MsgFrm.Free
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlgEx('Dosya şifre çözme başarısız: ', mtInformation, [mbOk], Form1);
end;