Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Mi to funguje. Psala jsem že to jen po vzhledove strance nevypada moc dobře. A pokud použiju nějakou… nový
Marcelka.S 23.05.2012 06:09
Marcelka.S
Hm. Tak ještě jednou pro blondynku. Mam Form1 kde je button. form2.show; a v uses mam unit2 Mam F… nový
Marcelka.S 23.05.2012 08:16
Marcelka.S
Jednoduchy priklad: Nova aplikace, pridam form, takze budu mit Form1 (unit1) a Form2 (unit2) V Unit… nový
Jan Fiala 23.05.2012 09:40
Jan Fiala
No zas tak blba nejsem. Furt je přilepen vlevo nahoře :-/ 523046446 nový
Marcelka.S 23.05.2012 12:25
Marcelka.S
Ten kod jsem zkopiroval z Delphi, ve kterem jsem to spustil a vyzkousel. Form2 je otevren na plose F… nový
Jan Fiala 23.05.2012 17:38
Jan Fiala
Stiahol som, otvoril v DelphiXE2 - čumím na to... Form2 - v object inspectore nastav Position - poDe… nový
pme 23.05.2012 17:54
pme
Tohle bude zmena vychozi hodnoty property v novejsi verzi Delphi. V me D7 mam designed jako default nový
Jan Fiala 23.05.2012 18:41
Jan Fiala
Funguje ;-) Dik moc. poslední
Marcelka.S 25.05.2012 06:14
Marcelka.S

Mi to funguje.
Psala jsem že to jen po vzhledove strance nevypada moc dobře.
A pokud použiju nějakou tu komponentu je přilepena na form natvrdo.
Nejde sni pohybovat a upravovat velikost.
Ten Form2 vlepen do Form1 je vzhledově mnohem lepši.
Raději se trochu potrapim s tou Unitou

Hm.
Tak ještě jednou pro blondynku.

Mam Form1 kde je button.
form2.show;

a v uses mam unit2

Mam Form2
Do implementation jsem přidala uses Unit1;

A do FormCreate

Parent := Form1;
Form2.Left := Form1.Left+800;

Form2 je vlepen do Form1 na pozici nahoře vlevo.

Form1.Left je 800
Když dam do form 2 Label1.Caption := IntToStr(Form2.Left);
Tak je 1600 což je 800 + 800
Kde je potom problem.

Jednoduchy priklad:

Nova aplikace, pridam form, takze budu mit Form1 (unit1) a Form2 (unit2)
V Unit1 do casti implementation do uses pridam Unit2.
Na Form1 dam tlacitko a do nej kod:

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(self);
  Form2.Parent := Form1;
  Form2.Left := 40;
  Form2.Top := 40;
  Form2.Show;
end;

Form2 se vytvori prilepeny na Form1 a to 40 pixelu od leveho a horniho okraje Form1

Zpět do poradny Odpovědět na původní otázku Nahoru