[es] - Dinamicki kreirani bitbtn

segment
Vesna Lazareska Arsik
Skopje, Makedonija

Član broj: 280596
Poruke: 30
79.126.136.*

Profil

^{13.11.2014. u 12:45 - pre 114 meseci}

Pocituvani,
imam i: array[1..100] of tbitbtn;
i vo runtime kreiram nekolku bitbtn, kako da definiram sto da se pravi na onClick.
Propertis se mozam da definiram no Events nemozam :( t.e. ne znam kako
Odnapred Vi Blagodaram na pomosta

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Dinamicki kreirani bitbtn

^{13.11.2014. u 15:00 - pre 114 meseci}

http://stackoverflow.com/questions/22710236/creating-a-new-btnclick-procedure-for-a-dynamic-button

Evo, možda pomogne.

Odgovor na temu

segment
Vesna Lazareska Arsik
Skopje, Makedonija

Član broj: 280596
Poruke: 30
46.217.160.*

Profil

Re: Dinamicki kreirani bitbtn

^{16.11.2014. u 16:11 - pre 114 meseci}

Ova e ok,
megutoa kako da znam od taa niza na button-i koj tocno e kliknat zasto vo zavisnost od toa treba da se izvrsi nekoja akcija

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Dinamicki kreirani bitbtn

^{16.11.2014. u 19:21 - pre 114 meseci}

Code (delphi):

type

  TfrmSale = class(TForm)

    redOutput: TRichEdit;

    btnBuy: TButton;

    procedure btnBuyClick(Sender: TObject);     <<--- link made in designer

  private                                      VVVVV-- from here on it's 

    pnlSale : TPanel;                                  your responsibility

    edtQuantity : TEdit;

    rgpOptions : TRadioGroup;

    btnSelect : TButton;

    [b]procedure btnSelectCick(Sender: TObject);[/b]  <<-- link must be made in code

  public

    { Public declarations }

  end;

var

  frmSale: TfrmSale;

implementation

{$R *.dfm}

procedure TfrmSale.btnBuyClick(Sender: TOBject);

begin

  pnlSale := TPanel.Create(frmSale);

  pnlSale.Parent := frmSale;

  pnlSale.Left := 10;

  pnlSale.Top := 10;

  pnlSale.Width := 350;

  pnlSale.Height := 250;

  pnlSale.Visible := True;

  edtQuantity := TEdit.Create(pnlSale);

  edtQuantity.Parent := pnlSale;

  edtQuantity.Left := 50;

  edtQuantity.Top := 60;

  edtQuantity.Width := 80;

  edtQuantity.Height := 20;

  edtQuantity.Text := 'Quantity';

  edtQuantity.Visible := True;

  rgpOptions := TRadioGroup.Create(pnlSale);

  rgpOptions.Parent := pnlSale;

  rgpOptions.Left := 30;

  rgpOptions.Top := 100;

  rgpOptions.Width := 300;

  rgpOptions.Height := 140;

  rgpOptions.Visible := True;

  rgpOptions.Caption := 'Options';

  rgpOptions.Items.Add('Screws 12mm');

  rgpOptions.Items.Add('Canned Peaches 250g');

  rgpOptions.Items.Add('Tomatoes');

  rgpOptions.Items.Add('Spaghetti 500g');

  rgpOptions.Items.Add('Twin Flex 5m');

  rgpOptions.Items.Add('Clear Glue 250ml');

  btnSelect := TButton.Create(frmSale);

  [b]btnSelect.OnClick:= btnSelectCick;[/b][u][/u]   <<-- Assign the button handler

  btnSelect.Parent := frmSale;

  btnSelect.Left := 130;

  btnSelect.Top := 260;

  btnSelect.Width := 80;

  btnSelect.Height := 40;

  btnSelect.Caption := 'Select';

  end;

procedure TfrmSale.btnSelectClick(Sender: TOBject);

begin

  redOutput.Lines.Add(rgpOptions.Lines[rgpOptions.ItemIndex]);  <<-- DRY

end;

Odgovor na temu

segment
Vesna Lazareska Arsik
Skopje, Makedonija

Član broj: 280596
Poruke: 30
46.217.54.*

Profil

Re: Dinamicki kreirani bitbtn

^{16.11.2014. u 20:06 - pre 114 meseci}

Da ova bese se ok samo mene mi trebase za nepoznat broj na kopcinja t.e. jas imav
k1: array[1..200] of TBitbtn;

t.e. ova mi falese

procedure Tstatus_sobi_frm.k1click(sender:TObject);
var b: TBitBtn;
begin
b := Sender as Tbitbtn;

Sega mozam da kalkuliram so b kade spored nazivot odam na opredeleni akciii

Fala za pomosta

Odgovor na temu