procedure TFrameButtons.sBitBtn3Click(Sender: TObject); begin if Mainform.sFrameLookBar1.Items[0].Frame nil then TFrameBarControls(Mainform.sFrameLookBar1.Items[0].Frame).sBitBtn1.Enabled := True; { if Assigned(OldFrame) then FreeAndNil(OldFrame); Frame := TFrameBarControls.Create(nil); TFrameBarControls(Frame).sBitBtn1.Enabled := True; } end;
PS. Other your messages will be deleted, please do not duplicate them.
procedure TFrameButtons.sBitBtn3Click(Sender: TObject); begin if Mainform.sFrameLookBar1.Items[0].Frame nil then TFrameBarControls(Mainform.sFrameLookBar1.Items[0].Frame).sBitBtn1.Enabled := True; { if Assigned(OldFrame) then FreeAndNil(OldFrame); Frame := TFrameBarControls.Create(nil); TFrameBarControls(Frame).sBitBtn1.Enabled := True; } end;
PS. Other your messages will be deleted, please do not duplicate them.