11. juni 2003 - 19:30Der er
2 kommentarer og 1 løsning
MDI save all
SIdder lige med et problem hvor jeg vil kunne gemme alle mine richedits, men den skal lave en query for hver eneste mdi så den spørger om man vil gemme. Har denne her kode hvis der bare var en richedit
begin if Richedit1.Modified Then Case MessageBox(Handle, 'Vil du gemme dokumentet', 'Gem?', MB_ICONQUESTION+MB_YESNOCANCEL) of IDYES: If SaveDialog1.Execute Then RichEdit1.Lines.SaveToFile(SaveDialog1.Filename) Else CanClose := False; IDCancel: CanClose := False; //luk ikke End; end;
men mit problem er nu bare at jeg skal bruge det således at det bliver på MDI Basis og så den skal tjekke alle Childs er der nogen som kan lave sådan en stump kode til mig ??
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
var i :integer; MDIForm: TForm2; begin for I := 0 to Form1.MDIChildCount-1 do begin MDIForm := TForm2(Form1.MDIChildren[I]); if MDIForm.Richedit1.Modified Then Case MessageBox(Handle, 'Vil du gemme dokumentet', 'Gem?', MB_ICONQUESTION+MB_YESNOCANCEL) of IDYES: If SaveDialog1.Execute Then MDIForm.RichEdit1.Lines.SaveToFile(SaveDialog1.Filename) Else CanClose := False; IDCancel: CanClose := False; //luk ikke End; end; end;
vil lige høre hvordan at du så gør det når jeg vil have vil du gemme og så + en var på. Så begynder den at brokke sig med at det ikke er en pchar. vi satte 'Vil du gemme' + Mainform.caption. Det vi vil er at skrive hvilket dokument man vil gemme
var st:string; begin st := 'Unavngivet 1'; if MessageBox(Handle, pchar('Vil du gemme dokumentet: '+st), 'Gem?', MB_ICONQUESTION+MB_YESNOCANCEL) =idyes then //save.....
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
