Ok I'm making a Tutorial Help script type thing, and need help with forms. Run the script in scar first and you'll get what im saying.
I want after someone selects something from the listbox, and clicks show, it'll open up a webpage with that tutorial. I could do it using a bunch of buttons, but it would'nt look right. Also I know how to do this in VB, but how do I open another form? would it be like form2.show? also to close it , would it be frmdesign.hide?Code:program helper; var frmDesign : TForm; GroupBox1 : TGroupBox; ListBox1 : TListBox; Button1 : TButton; Button2 : TButton; procedure buttonclick(sender: TObject); begin openwebpage(''); end; procedure InitForm; begin frmDesign := CreateForm; frmDesign.Left := 257; frmDesign.Top := 128; frmDesign.Width := 416; frmDesign.Height := 331; frmDesign.Caption := 'SCAR/SRL Helper - By ReFLeX'; frmDesign.Color := clBtnFace; frmDesign.Font.Color := clWindowText; frmDesign.Font.Height := -11; frmDesign.Font.Name := 'Verdana'; frmDesign.Font.Style := [fsBold]; frmDesign.Visible := False; frmDesign.PixelsPerInch := 96; GroupBox1 := TGroupBox.Create(frmDesign); GroupBox1.Parent := frmDesign; GroupBox1.Left := 2; GroupBox1.Top := 1; GroupBox1.Width := 401; GroupBox1.Height := 263; GroupBox1.Caption := 'Tutorials'; GroupBox1.TabOrder := 10; ListBox1 := TListBox.Create(frmDesign); ListBox1.Parent := frmDesign; ListBox1.Left := 7; ListBox1.Top := 15; ListBox1.Width := 391; ListBox1.Height := 242; ListBox1.ItemHeight := 13; ListBox1.Items.Add('[SRL] User.scar and UserManager.scar - RsN'); ListBox1.Items.Add('[SRL] How to use SRL Succesfully - Sdcit'); ListBox1.Items.Add('[SCAR] Color Picking Tutorial - Sdcit'); ListBox1.Items.Add('[SCAR] Procedures - Sdcit'); ListBox1.Items.Add('[SCAR] Arrays - XxKanexX'); ListBox1.Items.Add('[SCAR] Bitmaps - XxKanexX'); ListBox1.Items.Add('[SCAR] Basics - XxKanexX'); ListBox1.Items.Add('[SCAR] Forms - mr pali'); ListBox1.Items.Add('[SCAR] DTM'#39's - yohojo8'); ListBox1.Items.Add('[SCAR] Your First Script - Bebemycat2'); ListBox1.Items.Add('[SCAR] Findcolorspiral/Findobj - WhiteShadow'); ListBox1.Items.Add('[SCAR] Radial Walk - WT-Fakawi'); ListBox1.Items.Add('[SCAR] Bitmap - jagex_fagex'); ListBox1.Items.Add('[SCAR] Basic Scar Variables and Colors - brownsymcard'); ListBox1.TabOrder := 8; Button1 := TButton.Create(frmDesign); Button1.OnClick:= @buttonclick; Button1.Parent := frmDesign; Button1.Left := 3; Button1.Top := 267; Button1.Width := 88; Button1.Height := 25; Button1.Caption := 'Show'; Button1.TabOrder := 9; Button2 := TButton.Create(frmDesign); Button2.Parent := frmDesign; Button2.Left := 92; Button2.Top := 267; Button2.Width := 87; Button2.Height := 25; Button2.Caption := 'Close'; Button2.TabOrder := 11; end; procedure SafeInitForm; var v: TVariantArray; begin setarraylength(V, 0); ThreadSafeCall('InitForm', v); end; procedure ShowFormModal; begin frmDesign.ShowModal; end; procedure SafeShowFormModal; var v: TVariantArray; begin setarraylength(V, 0); ThreadSafeCall('ShowFormModal', v); end; begin;//main loop SafeInitForm; SafeShowFormModal; end.



Reply With Quote





Just replace the google.coms with the actual web page 


