Skringer over i MessageDlg

Sikkert fordi at MessageDlg IKKE retunerer mrYES, prøv med IDYES jeg det er det den retunerer

if MessageDlg('Ønsker du at afslutteprogrammet nu ?',mtconfirmation,
[mbyes,mbno],0)= idyes

/Martin

Hej Martin

Surt, men det virkede heller ikke

Det er mryes der sendes tilbage.

Hvor ender du præcist hvis du siger Ja?

Din kode virker fint hos mig.

så ender jeg ved den sidste end;

prøv den her....
Application.MessageBox('Ønsker du at afslutte programmet nu ?', 'Navn på programmet', MB_YESNO) = IDNO then
    CanClose := False;
//stone

Hej Stone
når jeg prøver dit forslag får jeg denne fejl
[Error] hovde.pas(292): Left side cannot be assigned to

hvad skal jeg prøve

hmm her virker det..

anold - du skal huske at smide IF foran stone's forslag - det er en betingelse - ikke tildelingssætning.

Den virker også fint hos mig - er du sikker på at din PATH indeholder den rigtige sti ??

Jeg har kigget din kode igen, rettet et par fejl (du bruger CheckBox1 to steder) - og jeg synes det virker fint (har placeret komponenterne på min testform, ikke som du, på frmOpsaetning) - desuden bruger jeg "with" for overskuelighedens skyld:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  if MessageDlg('Ønsker du at afslutte programmet nu ?',mtConfirmation, [mbYes,mbNo],0) = mrYes then
  begin
    with RichEdit1 do begin
      Clear;
      Lines.Add('[SETUP]');
      Lines.Add('[STI FOR PLACERING AF SYSINFO FIL]');
      Lines.Add(EDIT3.TEXT);
      Lines.Add('[STI FOR POSTPRO FIL (H) ÅBN MAPPE]');
      Lines.Add(EDIT1.TEXT);
      Lines.Add('[STI FOR SIDSTE DIR]');
      Lines.Add(EDIT2.TEXT);
      Lines.Add('[ÅBN NYESTE FIL AUTOMATISK]');
      Lines.Add('AUTOOPEN = '+BoolToStr(CheckBox1.Checked));
      Lines.Add('[HUSK SIDSTE DIR]');
      Lines.Add('HUSKDIR = '+BoolToStr(CheckBox2.Checked));
      Lines.SaveToFile(PATH);
    end;
    CanClose := True;
  end;
end;

Du slipper heller ikke for mine kommentarer:

1. Hvorfor bruger du richedit hvis en TStringList kunne gøre det?

var
  ParamList : TStringList;
begin
  ParamList := TStringList.Create;
  try
    ParamList.Add('[SETUP]');
    ParamList.Add('[STI FOR PLACERING AF SYSINFO FIL]');
    ParamList.Add(EDIT3.TEXT);
    ParamList.Add('[STI FOR POSTPRO FIL (H) ÅBN MAPPE]');
    ...
    ParamList.SaveToFile(PATH);
  finally
    ParamList.Free;
  end;
end;

2. Hvorfor giver du ikke dine komponenter nogle fornuftige navne. Man kan ikke se om CheckBox1 er ment til at styre AutoOpen eller HuskDir

3. Håber at det er Eksperten der fjerner indrykkene - for ellers kunne du godt gøre lidt mere i det...

Hej, så er jeg tilbage igen

nu ser det ud til at det virker, det som fik det til at virke var det forslag som Stone kom med, hvorfor nogle af de andre ikke virker fatter jeg ikke en sk.. af, men mange tak for hjælpen alle sammen

PS stone kan du ikke give et svar således at du kan få dine points ??

svar..