In a MDI development, there are forms, each form contain a DBGrid linked to a data module. I would like adding icon FIRST, PREVIOUS, NEXT, LAST, INSERT, DELETE in the tool bar of the main form. How can we program this? For example, Child form A show table A record is BOF; Child form B show table A record is EOF, etc. I would also want to place a CLOSE icon in the tool bar for closing the current active form? How can it achieve?

procedure TMdiMainForm.ToolButton1Click(Sender: TObject);
var dsinfo: PPropinfo;
  ctrl:TControl;
  ds:TDataSet;
begin
  if ActiveMDIChild <> nil then  //ActiveMDIChild為目前Active 之child
    if ActiveMDIChild.ActiveControl<>nil then begin
      ctrl:=ActiveMDIChild.ActiveControl; //按toolButton前之active Control
      dsinfo := GetPropinfo(ctrl, 'DataSource');//取得該control是否有datasoure property
      if dsinfo<>nil  then begin  
        ds := TDataSource(GetOrdProp(ctrl,dsinfo)).DataSet; //取得Dataset
        showmessage(ds.name);
      end;
    end;
end;

上面程式Demo如何取得目前ActiveControl所對應到之DataSet, 我想之後的工作(FIRST, PREVIOUS, NEXT, LAST, INSERT, DELETE)針對此DataSet你應該沒問題了吧 close之toolButton直接

  if ActiveMDIChild <> nil then
    ActiveMDIChild.close;

須注意, mdiChild之close只是minimize,真的要close可在每一mdiChild之onClose加上 Action:=caFree;

高手........個然是高手。 One more question wish you can help. How to rotate a image? For example: A picture taken by a DC is 640 x 480, how to rotate and display it in 480x640?

Very Strange, There is no TypeInfo.pas in Delphi. TypeInfo

不是typeinfo是TypInfo, 沒有e

你可以直接使用ActionList,然後將DataSet中所有Action叫出, 然後在相對應的Button選取Action就可以    

引言: In a MDI development, there are forms, each form contain a DBGrid linked to a data module. I would like adding icon FIRST, PREVIOUS, NEXT, LAST, INSERT, DELETE in the tool bar of the main form. How can we program this? For example, Child form A show table A record is BOF; Child form B show table A record is EOF, etc. I would also want to place a CLOSE icon in the tool bar for closing the current active form? How can it achieve?