mal wieder pointer

[kiar]

hi chris ,

danke für den hinweis, aber des editfeld existiert.es wird zur laufzeit erzeugt und hat sein parent auf einem panel,aber nicht in der procedure, in der ich darauf zugreifen will. deshalb habe ich versucht mit pointer darauf zuzugreifen.

hier erstelle ich

Delphi-Quellcode:

procedure TfrmMain.geteilter1Click(Sender: TObject);
var
   p : TPanel;
   l : TEdit;
   MousePos: Tpoint;
begin
     mousePos:=screentoClient(Mouse.CursorPos);
     p:= TPanel.Create(self);
       with p do
         begin
           parent:= self;
           height:=100;
           Width :=200;
           Top:=  mousePos.x;
           left:= MousePos.y;
           Ctl3D:=false;
           popupmenu:=popupmenu1;

         end;
     l:= TEdit.Create(self);
     l.parent:=p;
     l.height:=20;
     l.width:=80;
     l.top:=10;
     l.left:=10;
     
end;

und hier versuche ich darauf zuzugreifen

Delphi-Quellcode:

procedure TfrmMain.mypopupclick(Sender: TObject);
var
   l:Tedit;
   p:Tpanel;
   pl:^Tedit;
begin

         if PopupMenu1.PopupComponent.Name = 'StringGrid1' then
            stringgrid1.cells[stringgrid1.col,stringgrid1.row]:=TMenuItem(sender).caption
         else
            pl:=@l;
            pl^.text:=TMenuItem(sender).caption;


end;

raik

[edit] quelltext eingefügt