confirm=gem ændringerne

Hvad er det helt nøjagtigt problemet er - har du rettet i sourcen til et eksempel, eller hvad?

Jeg har lavet en tekst editor,når man skriver i editoren og gemmer den virker alt som det skal.men lader man være med at skrive i editoren, får man en meddelse om, "vil du gemme ændringerne" i dokumentet.
det problem opstår kun når man slår scrollbars til i "propeties" for richEdit.

jeg ha ikke rettet i sourcen til et eksempel.

hej Irj

problemet er løst.

stone

Hvad var problemet så?

hej Irj
Problemet blev løst ved at sætte scrollbars til "none" i propeties,
og skrive i richEdit1:
"RichEdit1.ScrollBars:= ssVertical;"

'mærkeligt'

steen

Ja, egentligt. Well, bare det virker ;-)

well, hvis du ønsker en lidt anden måde at løse problemet på istedet for noget fusk med nogle scrollbars så kan jeg varmt anbefale dig at benytte følgende:


procedure TForm1.CheckFileSave;
var
  SaveResp: Integer;
begin
  if not richedit1.Modified then Exit;
  SaveResp := MessageDlg('Save changes?', mtConfirmation, mbYesNoCancel, 0);
  case SaveResp of
    idYes: Richedit1.Lines.SaveToFile('C:\whatever.rtf');
    idNo: {Nothing};
    idCancel: Abort;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  try
    CheckFileSave;
  except
    CanClose := False;
  end;
end;

Denne løsning vil virke uanset scrollbars eller ej. Du skal selvfølgelig nok lave lidt finpudsning og jeg vil anbefale dig at gøre nytte af Tsavedialog componenten, istedet for at gemme filen under C:\whatever.rtf men det kan du jo gøre som du vil.

mvh. DJ

hej DJ
hvorfor får jeg en fejlmelding om den nederste linie'idCancel:Abort;

specielt Abort?

jeg er lige startet med delphi 3.0 så
spørgsmålene kan godt virke 'dumme'
hilsen
stone

Hvad skete der med dette spørgsmål?