Ich möchte beim Klicken eines Button (Buttons sind voll in), dass sich direkt darunter ein Form öffnet... Dazu habe ich diesen Code:
Delphi-Quellcode:
procedure TfrmAuftraege.acEditChangePropertyExecute(Sender: TObject);
var
frm : TfrmFindProperty ;
P : TPoint ;
begin
frm := TfrmFindProperty.Create(self) ;
P := Point (cmdEditLiegenschaft.Left,cmdEditLiegenschaft.Top) ;
P.Y := cmdEditLiegenschaft.Height + P.Y ;
P := cmdEditLiegenschaft.ClientToScreen(P) ;
frm.Top := P.Y ;
frm.Left := P.x ;
frm.show ;
end;
cmdEditLiegenschaft ist der Button.
Doch leider ist das Form nicht an der gewünschten Stelle. Der button selbst liegt in einem Tabsheet, das Tabsheet in einem Pagecontrol usw... Warum klappt das nicht. Hier mal ein
Screenie