Form2 uzavřen do Form1

A zkusíš nám prozradit programovací jazyk?

Delphi XE2
Hold blondyna

Pokud chces, aby Form2 byl primo soucasti Form1, tak v OnCreate Form2 proved:

{timto jej "prilepim" na Form1}
Parent := Form1;
{nastaveni pozice Form2 na Form1}
Left := 10;  
Top := 10;

Nezapomen si ve Form2 pridat do Uses Unit1 - unitu, ktera obsahuje Form1, aby ses na ni mohla odkazovat

Asi nějak nechapu toto.

Nezapomen si ve Form2 pridat do Uses Unit1 - unitu, ktera obsahuje Form1, aby ses na ni mohla odkazovat

Pokud dam do Form2 - Uses Unit1 tak to nesežere.
[DCC Fatal Error] Unit2.pas(7): F2046 Out of memory

Pokud dam do unit1 - Uses unit2, abych mohla spouštět form2 s form1 form2.show tak je to ok.
Funguje to i bez te unity ale nelze nastavit Left a top.
Form je připlacly v levo nahoře.

To out of memory je nejaky nesmysl.
Nemůžeš mít současně Unit2 v interface v Unit1 a Unit1 v interface části Unit2. To by křičel na cross reference.

Podívej se do helpu na skladbu unity. Křížové reference se řeší tak, že uvedeš odkaz na unitu až v USES v části implementation.

A nakonec poslední otázka. Proč chceš vlastně lepit jeden formulář na druhý?

A nakonec poslední otázka. Proč chceš vlastně lepit jeden formulář na druhý?

Mam ListBox.
Chci aby po poklepaní na řadek se v něčem zobrazil text, ktery je uložen v textaku na HD.
Zkoušela jsem použit ještě jeden ListBox v hide a po poklepaní se zobrazil a načetla data.
Neni to však vzhledově ono.Žadne oramovaní ListBoxu.
Tak mně napadl ten form a přes cely vlepit ListBox a Listbox1.Items.LoadFromFile('c:\data.txt');
No nemusel by byt vlepen ale vypadalo by to lip než aby se s nim dalo šibovat po cele ploše.

Listbox, vedle toho memo nebo druhy listbox
Pri listBox1 OnDoubleClick bude:

if ListBox1.ItemIndex <> -1 then
  ListBox2.Items.LoadFromFile(ListBox1.Items[Listbox1.ItemIndex]);

případně:

if ListBox1.ItemIndex <> -1 then
  Memo1.Lines.LoadFromFile(ListBox1.Items[Listbox1.ItemIndex]);

Pripadne standardni reseni: uplne obycejny OpenDialog, kde si zvolis Otevrit soubor, zobrazi se OpenDialog, uzivatel si vybere a obsah se ti nacte.

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

No zas tak blba nejsem.
Furt je přilepen vlevo nahoře
523046446

Ten kod jsem zkopiroval z Delphi, ve kterem jsem to spustil a vyzkousel.
Form2 je otevren na plose Form1 a je posunut o Left a Top.
Pokud se ti to chova jinak, za to ja nemuzu.

Stiahol som, otvoril v DelphiXE2 - čumím na to...
Form2 - v object inspectore nastav Position - poDesigned
Ak je nastavená pozícia (Position) na defaultPosOnly - čiže východzia - ostane "prilepený" 0,0,...

Tohle bude zmena vychozi hodnoty property v novejsi verzi Delphi.
V me D7 mam designed jako default

Funguje
Dik moc.