Çok zor bir soru galiba sanırım
çünkü bununla ilgili hiçbir örnek görmedim
Mesela bir butona tıkladık form üstünde bir panel oluşturmuştuk
fakat bu panele tıklandığındada bir işlem yapmasını istiyorum mesela alttaki gibi
Fakat paneller Runtimeda oluştuğu için işletilecek kodları yazsaktanafile, çünkü ilişkilendirilmemiş bir nesne ve kod bloğu
Aslında çok hoş bir işlem, mesela oluşturulan panelerden birine tıklandığında bir işlem yapmasını istiyorum
Panel click olduğunda sanırım memorynin belli ayrılmış offsetlerine ulaşması gerekiyor
Bunu hiç denemedim
Kod: Tümünü seç
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ScrollBox1: TScrollBox;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MusteriEkle(Musteriismi:String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x:Integer;
implementation
{$R *.dfm}
procedure TForm1.MusteriEkle(Musteriismi:String);
var
MusteriPaneli:array [0..255] of TPanel;
begin
MusteriPaneli[x] := TPanel.Create(ScrollBox1) ;
With MusteriPaneli[x] Do Begin
Parent:=ScrollBox1;
Left := 0 ;
Top := 15 ;//Sorun Sanırım Buradan Kaynaklanıyor.Çok Yüksek Tutulması Gerekiyor.
Width := 453;
Height := 41;
Align := alTop ;
Caption := Musteriismi+IntToStr(x) ;
TabOrder := 0 ;
end;
x:=x+1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MusteriEkle('Müşteri');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0;
end;
end.