Panel in einem anderen Form createn...

NeoXan · Beiträge: 81 WinXP Sp1 Home D7 Prof

Moin,

also ich 2 Forms. In dem einen gibt es einen Button

Delphi-Quelltext

1:
2:
3:

 Self.Hide;
 p           := p.Create(World); //<======
 p.OnMouseDown := PosiMouseClick;

Das Prob ist jetzt nur, dass das Panel in dem Form created wird in dem der Button vorhanden ist...und nicht in dem anderen...

mfg
NeoXan

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt

Michael Stenzel · Beiträge: 133 D3 Prof, D7 PE

Hi NeoXan.

Dein Code vervollständigt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  Self.Hide; 
  p := p.Create(World); //<====== 
  p.OnMouseDown := PosiMouseClick;
  p.Parent := World;
  p.Show;

Ich hoffe, daß World der Bezeichner für die Form ist, auf der das Panel plaziert werden soll.

mfg
Michael.

NeoXan · Beiträge: 81 WinXP Sp1 Home D7 Prof

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TfrmExtras.PosiMouseClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ShowMessage(IntToStr(X));
 Self.Show;
end;

procedure TfrmExtras.btnPosiClick(Sender: TObject);
var p: TPanel;
begin
 Self.Hide;
 p             := p.Create(Evolve.gbTheWorld);
 p.Parent      := Evolve.gbTheWorld;
 p.Left        := Evolve.World.Left;
 p.Top         := Evolve.World.Top;
 p.Width       := Evolve.World.Width;
 p.Height      := Evolve.World.Height;
 p.Cursor      := crCross;
 p.Visible     := false;
 p.OnMouseDown := PosiMouseClick;
end;

Evolve = TForm
gbTheWorld = TGroupBox
World = TImage

Wenn ich auf das Panel klicke passiert nichts

Moderiert von DeCodeGuru: Code- durch Delphi-Tags ersetzt

StefanH · Verfasst: So 18.01.04 16:17

markieren

Delphi-Quelltext

1:	p.OnMouseDown := frmExtras.PosiMouseClick;

das vielleicht noch... (k.A., obs dann geht, denks mir aba

)

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Motzi · Verfasst: Mo 19.01.04 10:06

Statt p := p.Create(World); //<======
gehört das so:

markieren

Delphi-Quelltext

1:	p := TPanel.Create(World);

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme