MessageDlg calback overload

[Pier]

Can MessageDlg be modified in such a way that the Callback function is not

procedure EditCallback(Sender: TComponent; res :Integer);

but

procedure EditCallback(Sender: TComponent; DataSet: TDataSet;res :Integer);

in other words I would like to pass some other stuff to the callback

[Pier]

No ideas anyone?

[x11]

procedure TfmmClientsDataEdit.TreeTriggerCallbackAnonProc(Sender: TComponent; Res: Integer);
Var
  
  fmmSelFromTree: TfmmSelFromTree;
  
  ds: TDataSet;
begin
  if Res <> mrOk then exit;

  if Sender is TfmmSelFromTree then
    fmmSelFromTree := Sender as TfmmSelFromTree
  else
    exit;

  ds := fmmSelFromTree.MyDataSet1;
end;

 

[Pier]

Thanks for the help but this is not what is needed in my case. I want a single function to handle all datasets not just one (like MyDataSet1 in your example).

The problem is that the Sender is the MainForm and not the DataSet which called the MessageDlg which then invoked the callback...

[Pier]

in the end I solved the problem with an anonymous callback procedure and thanks to closures I used the DataSet available in the BeforeDelete and BeforePost events

(hope it doesn't leak, I will check)