Forum: Object-Pascal / Delphi-Language
Delphi
by Tommy82,
17. Apr 2007
Da es bei mir nicht die Möglichkeit gibt, ein Fenster ein zweites mal zu Öffnen, sehe ich mit "OnActivate" keine weiteren Schwierigkeiten.
Falls es doch welche gibt, immer her damit. Man lernt schließlich NIE aus :thumb:
mfg
Tommy82
Forum: Object-Pascal / Delphi-Language
Delphi
by Tommy82,
17. Apr 2007
genau diesen Gedanken hatte ich auch wärend meines Postings.
Aber sowas fällt einem immer erst ein, wenn man 1000mal rumprobiert hat und schon ganz frustriert ist.
mfg
Tommy82
Forum: Object-Pascal / Delphi-Language
Delphi
by Tommy82,
17. Apr 2007
OnPaint hat denselben Effekt wie auch OnShow.
Ich habe mir mal eine kleines Testprogramm geschrieben. Einfach nur 2 Formulare, auf das erste ein Button und das andere einfach nur ne Showmessage('test') drauf. Diese Schowmessage habe ich bei "OnPaint, OnCreate (def. falsch), OnShow und bei OnActivate" reingetan.
den gewünschten Effekt brachte nur "OnActivate".
Trotzdem danke für eure...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tommy82,
14. Apr 2007
procedure TForm2.FormShow(Sender: TObject);
var ini:TIniFile;
DatPfad,
Dateiname,
zwischen : String;
lauf : Integer;
begin
Try
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'einstellungen.ini');
Try
Forum: Object-Pascal / Delphi-Language
Delphi
by Tommy82,
14. Apr 2007
procedure TForm1.FormShow(Sender: TObject);
var
ini : TIniFile;
ArtikelID : Integer;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'einstellungen.ini');
Try
ArtikelID := ini.ReadInteger('Programmdaten','akt_ArtNr',-1);
Finally
END;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tommy82,
14. Apr 2007
Habe ich schon probiert, selber Effekt. Muss ich noch irgendwo was zwischensetzten ?
mfg
Tommy82