Anfangshürden

[AlterMann]

Ich kann's leider nicht nachvollziehen. Hab's grad auf WinXP Prof. mit Laz 0.9.28.2/fpc 2.2.4 und Win7 Laz 0.9.29(r23075)/fpc 2.5.1 probiert. Es läuft auf beiden Systemen fehlerfrei.

Ich habe mir erlaubt das ganze Projektverzeichnis upzuloaden (http://www.filefactory.com/file/a11aeg3/n/TK.zip)

Vielleicht hat jemand Zeit und Muße sich das anzusehen.
Einfach ausführen und zweimal auf "Neu Anlegen" klicken.
Beim erstenmal erscheint Neues Produkt im rechten Fenster.
Beim zweitenmal kommt die Meldung, daß es bereits vorhanden ist und der Eintrag "Neues Produkt" vom ersten Mal verschwindet wieder.

Kommentiert man die Zeile mit ShowMessage aus funktioniert alles wie es sein soll.

[shokwave]

Das Problem liegt an einer andern Stelle. Das Ereignis OnActivate wird jedesmal aufgerufen, wenn die Form den Fokus erhält. In deinem Fall, nachdem ihn die Meldung von ShowMessage hatte. Verlagere einfach die Ladeprozeduren in das Ereignis OnCreate.

[AlterMann]

Das Problem liegt an einer andern Stelle. Das Ereignis OnActivate wird jedesmal aufgerufen, wenn die Form den Fokus erhält. In deinem Fall, nachdem ihn die Meldung von ShowMessage hatte. Verlagere einfach die Ladeprozeduren in das Ereignis OnCreate.

Das ist eine sehr kluge Äußerung.
Vielen Dank für Deine Mühe.

[af0815]

Ich bevorzuge nicht die 'OnCreate' sonden für solche Initialisierung die 'OnActivate' allerdings verwende ich eine Objektglobale Variable um zu sehen ob ich beim ersten 'activate' bin oder nicht.
Mein Vorteil dabei ist, das die Initialisierung des Forms sicher bereits in allen Teilen gelaufen ist und ich daher sicher mit allen Komponenten am Form kommunizieren kann.

Hier geht es aber schon um 'Geschmäcker'.

[DiBo33]

Ich bevorzuge nicht die 'OnCreate' sonden für solche Initialisierung die 'OnActivate' allerdings verwende ich eine Objektglobale Variable um zu sehen ob ich beim ersten 'activate' bin oder nicht.

Ich nutze ebenfalls das OnActivate, da ich die Initialisierung nur einmal benötige, setze ich innerhalb von OnActivate einfach

Code: Alles auswählen

OnActivate := nil;