TÉMA:

A panelen lévő vezérlőket szép sorban újra létre kell hozni, a tulajdonságaikat pedig átmásolni. Valahogy így:Fontos: nem minden TControl leszármazott rendelkezik minden tulajdonsággal.

sa781207 írta: Kódot kérnék, lazarus verziót gép paramétert és megpróbálom én is.

Win 7 prof legújabb lazarus

Kódot kérnék, lazarus verziót gép paramétert és megpróbálom én is.

Én most megcsináltam ugyan ezt egy panellel. Gombnyomásra el is készül. De azt hogyan tudom elérni, hogy a panel tulajdonságait is örökölje? Tehát ha van rajt pl label, vagy editbox, akkor azok is létrejöjjenek az új paneleken...

ok működik!!
köszönöm a gyors választ....

Ezt a sort ( pr.OnClick:=tform1.prclick; ) szerintem inkább így írd: pr.OnClick:=@tform1.prclick; De az is lehet, h még a tform1 sem kell elé, hanem csak simán így is fog működni: pr.OnClick:=@prclick;

Azt pedig, hogy melyik i gombra lett kattintva megoldhatod úgy, hogy ha az adott gomb tag propertyjét feltöltöd az i változóval, aztán amikor vizsgálod, hogy melyik gomb ez akkor pl csinálhatsz valami ilyet:
[...]
if (Sender as TButton).Tag=1 then akármi
[...]
Korábban csináltam egy ilyen strigulázó programot ahol a te problémádhoz hasonló dolgot kellett megoldanom, ha gondolod nézd meg. A cuccot innen tudod letölteni : vadaszpeter.blogja.net/ccount/click.php?id=6

Sziasztok
futási időben szeretnék létrehozni nyomógombokat és a click eseményeikre reagálni.Az objektumokat létre tudom hozni futási időben ,de nem tudom az onclick eseményt kezeli,meg arra
is szükszégem lenne hogy melyik (i) gombra lett kattintva
tud valaki segíteni?

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
procedure prClick(Sender:TObject);
public
{ public declarations }
end;

var
Form1: TForm1;
pr:array[1..100] of tbutton;
i:integer;
implementation

{$R *.lfm}


{ TForm1 }
procedure TForm1.prClick(Sender:TObject);
begin
showmessage('gomb megnyomva');

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 20 do
begin
pr:=tbutton.Create(self);
pr.parent:=self;
pr.Width:=20;pr.Height:=20;pr.Top:=20*i;pr.Left:=20;
pr.OnClick:=tform1.prclick;

end;
end;

end.

wrong number of paraméter hibával leáll..