30. april 2002 - 16:30Der er
8 kommentarer og 2 løsninger
Ekstra til Ny og Luk
Jeg er i gang med en Editor der kan åbne gange vinduer.
1. Når jeg åbner et vindue og skriver på den også trykker på et nyt vindue igen skal der komme en MessageDlg som spørger om jeg skal gemme det der stå i vindue et.
2. Hvis der stå noget på vinduet og jeg vil lukke skal der komme den sammen MessageDlg?
Ny vindue kode: CreateMDIChild('Dokument' + IntToStr(MDIChildCount + 1));
Det kan da kun være fordi du ikke kan holde styr på den! :) Jeg mener der er en property i en memo (sikkert også i en RichEdit) der hedder Modified... Den skulle vist holde styr på om der er sket forandringer i den... Den kan du så bare sætte til False når du har gemt! :)
Har noget stort liggende, der ikke bruger MDI, men alligevel fungere som sådan. Og det er faktisk lavet som en Editor, men så er der jo ikke meget sjov ved det?
Når du gemmer din fil, så sætter du Modified til False. Det betyder så at den ikke er redigeret!
Når du så skriver i teksten, så bliver den ændret, modified, og den værdi sætter programmet så automatisk til True.
Når du så skal til at lukke dit program:
procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction); begin if Editor.Modified then if Application.MessageBox('Du har ikke gemt dokumentet, vil du gemme det nu?', 'Dokument ikke gemt', [MB_YESNO]) = IDYES then if SaveDialog.Execute then Editor.Lines.SaveToFile(SaveDialog.FileName); end;
Jeg har altså ikke testet koden, bare skrevet det løst, så hvis der er fejl, please don't kill me!!! :)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.