dynamicznie tworzony komponent i popupmenu

Cześć,

Mam na formie popupmenu (z ustawionymi już pozycjami menu) i tworze dynamicznie komponent timage.
Jak moge teraz do niego podpiac popupmenu?

Bo jak robie
MojObrazek.Popupmenu:=Popupmenu1;

to nie dziala, nic mi sie nie pojawia po kliknieciu prawym klawiszem myszy na obrazek.

Metoda, którą opisałeś powinna zadziałać. U mnie w Delphi 7 Personal działa

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1:= TImage.Create(Self);
  Image1.Parent:= Self;
  Image1.Left:= 0;
  Image1.Top:= 0;
  Image1.PopupMenu:= PopupMenu1;
end;

To zależy od parenta, przy Self działa prawidłowo, a jak ustawisz na formę to już nie :-P

CheSteR200, nie wiem czy dobrze Cię zrozumiałem?

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1:= TImage.Create(Form1);
  Image1.Parent:= Form1;
  Image1.Left:= 0;
  Image1.Top:= 0;
  Image1.PopupMenu:= PopupMenu1;
end;

Jeżeli o to chodzi, to oczywiście też działa
Myślę, że koledze tarer2010 nie zadziałało, dlatego ze w ogóle nie ustawił, właściwości Parent.
Jeżeli się odezwie, będzie wiadomo :-)

Dzięki za odpowiedzi.
Jako parent mam ustawiony form1.scrollbox1

Zauwazylem, ze jak wywale linijke
Form1.MouseCapture := True;
to dziala popup.

Niestety potrzebuje tego MouseCapture. Co moge zrobic?

Pozdrawiam

tarer2010 napisał(a)

... Niestety potrzebuje tego MouseCapture. Co moge zrobic?

Ja bym nic nie robił.
Wystarczy raz kliknąć lewym przyciskiem myszy na Image1 i menu kontekstowe się pojawi :-)

No ale nie dziala :-)

Mam ustawionego image1.Parent na form1.scrollbox1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.MouseCapture:= true;    // Tak dla pewności
  Image1:= TImage.Create(Self);
  Image1.Parent:= ScrollBox1;
  Image1.Left:= 0;
  Image1.Top:= 0;
  Image1.PopupMenu:= PopupMenu1;
end;

Aż nie mogę uwierzyć, że u Ciebie nie działa. Musisz coś przed nami ukrywać ;-)

PS. Oczywiście klikasz raz LPM na Image1, a potem menu kontekstowe jest pod RPM (no ale to chyba wiesz)

No nie dziala :/

Jedyna roznica jest taka, ze MojObrazek jest w osobnej klasie, zbudowanej przeze mnie a nie w Form1

no i nie mam
TImage.Create(Self);
tylko
TImage.Create(Form1.Scrollbox1)