Popup object ?

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  if PopupMenu1.PopupComponent.ClassType = TSpeedButton then
  begin
    showmessage('Der blev klikket på: '+TSpeedButton(PopupMenu1.PopupComponent).Name);
  end;
end;

Et lille råd: Hvis man har mange tabs og de hver indeholder mange komponenter, så mister man hurtigt overblikket.

Det kan man rette op på ved at bruge en frame på hver side - på den måde bliver det lettere at styre og du kan eksempelvis lave en abstrakt funktion i base-framen som hedder function IsValid : boolean; På den måde er det let at sikre at data er korrekte.

Hej dkn

Denne returnerer navnet på tabSheeten, og ikke på knappen der blev højreklikket !

hestetoften>> Du har måske ikke i væsenlig grad nærlæst det svar du fik. Hvis du vil have kompoeneten udleveret og ikke navnet på samme skal du nok ikke kalde.Name ... !?!?

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  aSpeedButton : TSpeedButton;
begin
  if PopupMenu1.PopupComponent.ClassType = TSpeedButton then
    aSpeedButton := TSpeedButton(PopupMenu1.PopupComponent);


    (*
Her fra kan du så gøre alt mulig med dit object. dog skal du altis huske at chekke for om det er nil eller ej.
Du kan fx få navnen at vide :
      *)
  if Assigned(aSpeedButton) then
    showmessage('Der blev klikket på: '+aSpeedButton.Name);
end;

Jens B

Fik det til at virke Tak