variable ile oluşturulmuş formun içindki btna procedr ekleme

[Jire]

merhaba önce kodumu göstereyim

var
Formcuk: TForm;
Webby: TWebBrowser;
begin
Formcuk := TForm.Create(Owner);
Formcuk.Width := 500;
Formcuk.Height := 500;
Formcuk.Position := poScreenCenter;
Formcuk.BorderStyle := bsSizeable;
Formcuk.Caption := 'HTML Preview';
...

...
Webby := TWebBrowser.Create(Formcuk);
Webby.ParentWindow := Formcuk.Handle;
Webby.Height := Formcuk.ClientHeight;
Webby.Width := Formcuk.ClientWidth;
Webby.Navigate(ExtractFilePath(Application.ExeName) + 'preview'+ IntToStr(rrandom) +'.htm');
end;

2 sorum var

1-Webbymi aligni nasıl çalışır duruma getirebilirim (alClient olmuyo/düzgün parent yapamadım bu nedenle heigh width kullandım)
2-Formcukun içindeki herhangi bi btn veya başka birşeye procedure ekleme

bunları cevaplarsanız çok sevinirim. teşekkürler.

[oklawa]

Aslında tam olarak anlamadım ama aşağıdaki yöntem umarım yardımcı olur..

Kod: Tümünü seç

//SpTbxLib ve TEmbeddedWB;
//Yeni bir tab oluşturur.
//Yeni bir browser form oluşturur.
//Browser'i Tab'a gömer.
Function TForm1.createnewtab: TEmbeddedWB;
Var
  Ntab: TSPTBXTabItem;
  NBrowser: TEmbeddedWB;
Begin
  If Not MainBrowsertab.TabVisible Then MainBrowsertab.TabVisible := true;
  NTab := SpTbxTabControl1.Add('Yeni Tab');
  Ntab.Caption := 'Yeni Sekme';
  NTab.OnTabClose := MainBrowsertabitem.OnTabClose;
  NBrowser := TEmbeddedWB.Create(NTAB);
  NBrowser.OnDocumentComplete := MainBrowser.OnDocumentComplete;
  NBrowser.OnBeforeNavigate2 := MainBrowser.OnBeforeNavigate2;
  NBrowser.Visible := True;
  NBrowser.Align := alclient;
  TWinControl(NBrowser).Parent := SpTbxTabControl1.GetPage(NTab);
  SpTbxTabControl1.ActivePage := SpTbxTabControl1.GetPage(NTab);
  Result := NBrowser;
End;

[ikutluay]

formcuk.onclik:=procedure adı tarzı bir atama ile yapılıyordu

[ikutluay]

formcuk.onclik:=procedure adı tarzı bir atama ile yapılıyordu