Nesne Create Olayı ?

[aveysel]

Arkadaşlar;

Programımda derleme aşamasında değil de çalışma aşamasında bir nesne ekleyebilirmiyim?

Mesela kullanıcı bir butona tıkladığında programım kendiliğinden bir MeMo nesnesi oluştursun gibi.

[DotCom]

Selamlar ;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
    var
           ToolBar: TToolBar;
    begin
           ToolBar := TToolBar.Create(Self);
           ToolBar.Parent := Self;
           AddButtons(ToolBar, ['New', 'Save', '|', 'Cut', 'Copy', 'Paste']);
           ToolBar.ShowCaptions := True;
           ToolBar.Height := 25;
end;

Yukarıdaki kod`da dikkat ederseniz toolbar ttoolbar sınıfından türetilmiş. aynen bu şekilde memoyuda ilgili sınıftan yani TMemo`dan türeterek runtime da kullanabilirsiniz.

Kolay Gelsin

[salvation]

Arkadaşlar;
Mesela kullanıcı bir butona tıkladığında programım kendiliğinden bir MeMo nesnesi oluştursun gibi.

Button1'e basınca formun sol üsttünde bir memo oluşturur.

Kod: Tümünü seç

Uses StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
    XMemo : TMemo;
begin
    XMemo := TMemo.Create(Self);
    XMemo.Parent := Self;
end;