Tricky!

stoons brug følgende:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (sender = button1) then begin
    //do the stuff for button1
  end;
  if (sender = button2) then begin
    //do the stuff for button2
  end;
  if (sender = button3) then begin
    //do the stuff for button3
  end;
  // o.s.v.
end;

og sæt alle buttons onclick event til at pege på button1click

Vedr. name:

Ja, du kan bruge
(sender as TButton).name i den samme event. Eks som ovenstående:

if (sender as TButton).name = 'Button1' then do_your_stuff;
På denne måde kan du også ændre alle properties for knappen.

ex:
(sender as TButton).name := 'MinKnap';
(sender as TButton).enabled := false;
(sender as TButton).visible := false;
(sender as TButton).color := clYellow;
(sender as TButton).top := 16;
(sender as TButton).left := 254;
o.s.v, o.s.v.

Øhhh... det checker jeg lige ud!

Bravo! Jeg vidte jo det ville være EKSTREMT SIMPELT! Men jeg er jo en autodidakt programmør (jeg har slet ingen bøger om Delphi!)

Tusind tak skovhus!

Skovhus, du står da lige lovlig tidlig op en Lørdag morgen ;)

Man kan også bruge (sender as tbutton).TAG, property'en er der netop for den slags!

tak for dine point stoons, og ja det er let når man bare lige ved hvordan. Men sådan er det jo med alt ikke ??

og hlj - Jeg står altid tidligt op, men går tilgengæld tidligt i seng. Jeg tilhører den generation der ikke længere kan holde så længe efter det er blevet mørkt ;-)

og til stoons; det med (sender as Txxx).yyy kan bruges til alle komponenter, ikke kun buttons. Og som snorga siger kan man også bruge TAG propertyen, men det er ikke kun lige derfor den er der som han nævner. TAGen er til fri afbenyttelse og kan bruges som man synes, og en mulighed er at give forskellige komponenter, der på en eller anden måde hører sammen (f.eks. forskellige komponenter der alle vedr. en bestemt del af en kundeoplysning) samme værdi i TAG og så bruge dette til hhv. af gøre alle disse synlige eller usynlige afhængig af om denne del skal vises på skærmen eller ej. Til sådan en mulighed anvender man f.eks:

for i := 0 to componentcount -1 do begin
  if component[i].tag = x then component[i].visible := false;
end;

Dette er bare en mulighed. Som du måske kan regne ud er der næsten uanede muligheder man kan bruge TAG til.

Tak skal i ha'! Bliv endelig ved med at udveksle EKSPERT-info om programmering i Delphi, så vil jeg følge med!!!

= )

Okay