Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- TForm1 = class(TdxRibbonForm)
- dxRibbon1Tab1: TdxRibbonTab;
- dxRibbon1: TdxRibbon;
- dxSkinController1: TdxSkinController;
- dxBarManager1: TdxBarManager;
- dxBarManager1Bar1: TdxBar;
- dxBarButton1: TdxBarButton;
- dxBarButton2: TdxBarButton;
- dxBarButton3: TdxBarButton;
- procedure dxBarButton1Click(Sender: TObject);
- procedure dxBarButton2Click(Sender: TObject);
- procedure dxBarButton3Click(Sender: TObject);
- private
- procedure SwitchToChild(AMain, AChild: TForm);
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- procedure TForm1.SwitchToChild(AMain, AChild: TForm);
- begin
- SendMessage(AMain.ClientHandle, WM_SETREDRAW, 0, 0);
- AChild.Show;
- SendMessage(AMain.ClientHandle, WM_SETREDRAW, 1, 0);
- RedrawWindow(AMain.ClientHandle, nil, 0,
- RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_UPDATENOW);
- end;
- procedure TForm1.dxBarButton1Click(Sender: TObject);
- begin
- SwitchToChild(Self, ChildForm1);
- end;
- procedure TForm1.dxBarButton2Click(Sender: TObject);
- begin
- SwitchToChild(Self, ChildForm2);
- end;
- procedure TForm1.dxBarButton3Click(Sender: TObject);
- begin
- SwitchToChild(Self, ChildForm3);
- end;
- //Cara Ke II
- procedure TFrmMenuUtama.dxBarLargeButton52Click(Sender: TObject);
- begin
- try
- if application.findcomponent('FrmBroBarang')=nil then
- begin
- SendMessage(Application.MainForm.ClientHandle,WM_SETREDRAW,0,0);
- FrmBroBarang := TFrmBroBarang.Create(application);
- FrmBroBarang.FormStyle:=fsMDIChild;
- FrmBroBarang.Show;
- end
- else
- begin
- FrmBroBarang.BringToFront;
- end;
- finally
- SendMessage(Application.MainForm.ClientHandle,WM_SETREDRAW,1,0);
- RedrawWindow(Application.MainForm.ClientHandle, nil, 0, RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_NOINTERNALPAINT);
- end;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement