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