Skakanje forme pri OnShow

Problem je sljedeći:

pri onclose forme pamtim parametre forme: left, top, hight, width kao i položaje splitera i ostali kontrola na formi.

pri otvaranju forme, na onshow forme učitavam sve te parametre. Ako se razlikuju od default-nih koje sam postavio pri kreiranju forme, tj. ako se forma resiz-a ili premješta, na ekranu se vidi njeno "skakanje".

Forma je MDIChild

Kako ju učiniti nevidljivom dok se ne postave svi njeni parametri?

Ili neka druga ideja?

Za takve stvari koristi OnCreate a ne OnShow.

Potpis

"There is a theory which states that if ever anybody discovers exactly what the
Universe is for and why it is here, it will instantly disappear and be replaced by
something even more bizarre and inexplicable. There is another theory which states
that this has already happened."
-- Douglas Adams

Za takve stvari je mnogo bolje koristiti konstruktor.

Potpis

Tko leti vrijedi

Pokušao sam ih staviti u OnCreate i u OnShow, ali mi javljaju: "Access violation..."

ovo je primjer postavljanja parametara:

fmIdok.WindowState := dm.IniRead('FM_IDOK', 'STATE', self.WindowState);
fmIdok.Left := dm.IniRead('FM_IDOK', 'LEFT', fmIdok.Left);

dm je datamodul,
InRead je overlodana procedure koja iz ini file-a čita parametre. Ona odradi posao, greška se dogodi pri fmIdok.WindowState :=

koristim se sljedećim i to radi:

procedure TfmIdok.FormPaint(Sender: TObject);
begin
if (fmIdok <> nil) and not(LoadFirst) then begin
LoadFirst := true;
fmIdok.WindowState := dm.IniRead('FM_IDOK', 'STATE', self.WindowState);
...


Kako upitrijebiti konstuktor? POkušao sam napraviti:
Constructor create(TOwner: TControl); override;

pa u konstruktor, nakon inherited ubaciti fmIdok.WindowState := ... isto javi grešku

> fmIdok.WindowState := dm.IniRead('FM_IDOK', 'STATE', self.WindowState);
> fmIdok.Left := dm.IniRead('FM_IDOK', 'LEFT', fmIdok.Left);

WindowState := dm.IniRead('FM_IDOK', 'STATE', WindowState);
Left := dm.IniRead('FM_IDOK', 'LEFT', Left);

Ako i dalje budeš dobijao AV, stavi breakpoint na prvi red u metodi i onda redom mišem prelazi preko svih promenljivih dok ne nađeš onu koja je nil.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

ne mozes nista koristiti iz datamodula u TfmIdok.OnCreate jer on u tom trenutku verovatno ne postoji. verovatno ti je fmIdok glavni form i kad se on kreira jos nista drugo nije kreirano. funkciju IniRead prebaci u fmIdok pa probaj tako

Savkic je u pravu, tako radi, ali djelomično :)
Ne javlja AV, ali forma pleše po ekranu kao i prije. Problem je WindowState.

Ako je postavljen ud design-u na wsMaximize, a korisnik ju je smanjio (što se pamti), pri sljedećem pokretanju forme, zapamčeno je i vraća se WindowState koji je postavio korisnik (wsNormal, a ja sam pri designu postavio wsMaximized).
Isto vrijedi i oratno...
Podešavanje pozicije radi OK, izvrši se trenutno, bez treperenja, jedino što postavljanje WindowState mora biti prvi, inaće pokvari položaj (left, top..)

Ne, TfmIdok nije glavna forma, datamodul je kreiran, funkcije se izvrše... nema smilsa da funkcije prebacujem u formu jer se koriste iz svih formi, a jedino datamodul je linkan u sve forme. U zadnje vrijeme za to koristim unit u kom nema forme za takove stvari - funkcije i klase koje koristim iz više mjesta.

Kako vi rješavate pamčenje izleda ekrana (izmjene koje napravi korisnik - veličina forme, raspored kolona grida, visina grida sa splitterom)? Po mogučnosti bez polke na keranu :)



Zanimljivo: pokušao sam učitavanje prebaciti u construcotr:

Constructor create(TOwner: TControl); override;

nakon toga forma više nije MDIChild !!!

Cini mi se da imas nesrecan redosled poteza.. ili ti je forma poprilicno slozena, puno kontrola, mozda i neki OnResize handleri koji pozivaju jedni druge? Ja obicno posnimam sta mi treba na OnClose (ili OnDestroy), ucitavam na OnCreate. Za sada nisam imao problema koje opisujes. Jedno (kvazi)resenje koje ti mogu ponuditi je sledece:

Ovo nije bas najsrecnije, ali mozda ti pomogne dok ne resis na neki bolji nacin.



Zar ne bi trebalo


A i proveri inherited poziv, da ga nisi izostavio, premestio sa pocetka, prosledio pogresni parametar?