unit frTopBar; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IWBaseControl, IWControl, IWExtCtrls, IWHTMLControls, IWCompLabel, IWHTMLTag, IWVCLBaseControl, IWCompEdit, IWCompRectangle, IWVCLBaseContainer, IWContainer, IWRegion; type TISFTopBar = class(TFrame) IWFrameRegion: TIWRegion; imgSloganTop: TIWImageFile; rectBlackTop: TIWRectangle; rectRedTop: TIWRectangle; edSearch: TIWEdit; imgSearchText: TIWImageFile; imgSearchButton: TIWImageFile; imgSignIn: TIWImageFile; imgAccount: TIWImageFile; imgCart: TIWImageFile; lnkSignIn: TIWLink; lnkAccount: TIWLink; lnkCart: TIWLink; imgServices: TIWImageFile; lnkServices: TIWLink; imgSloganBottom: TIWImageFile; procedure SignIn(Sender: TObject); procedure Account(Sender: TObject); procedure Cart(Sender: TObject); procedure Services(Sender: TObject); procedure imgSearchButtonClick(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation {$R *.dfm} uses IWInit, IWAppForm, ServerController, uShoppingCart, uSearch, IWApplication, uOrderHistory; procedure TISFTopBar.SignIn(Sender: TObject); begin UserSession.NeedLogin(TIWAppFormClass(WebApplication.ActiveForm.ClassType)); end; procedure TISFTopBar.Account(Sender: TObject); begin if UserSession.LoggedIn then begin TIWAppForm(WebApplication.ActiveForm).Release; TISFOrderHistory.Create(WebApplication).Show; end else begin SignIn(nil); end; end; procedure TISFTopBar.Cart(Sender: TObject); begin TIWAppForm(WebApplication.ActiveForm).Release; TISFShoppingCart.Create(WebApplication).Show; end; procedure TISFTopBar.Services(Sender: TObject); begin // end; procedure TISFTopBar.imgSearchButtonClick(Sender: TObject); begin UserSession.SearchText := edSearch.Text; TIWAppForm(WebApplication.ActiveForm).Release; TISFSearch.Create(WebApplication).Show; end; end. test image