[kazuya85]

'Support' wrote:

Hello, you can try such code :

Code:

procedure TMainForm.sBitBtn1Click(Sender: TObject);
var
ci : TsTitleItem;
begin
ci := sFrameBar1.Items.Add as TsTitleItem;
ci.Caption := 'New item';
ci.OnCreateFrame := sFrameBar1Items1CreateFrame;
end;

Here is the demo : http://www.alphaskins.com/sfiles/demos/framebar.zip

thanks dude, u are my savior…

[kazuya85]

no help? 😡

[Author]

Posts