[Error] MainFormUnit.pas(54): Missing operator or semicolon

[flomei]

Tja. Ich weiss nicht was ich falsch mache. Es ist garantiert ein winziger Fehler aber ich find ihn nicht...

Delphi-Quellcode:

procedure TMainForm.stayontop(Sender: TObject);
  begin
    if
      Stay.Checked = true
    then
      MainForm.FormStyle := fsStayOnTop
      Help.FormStyle := fsStayOnTop
    else
      MainForm.FormStyle := fsNormal;
      Help.FormStyle := fsNormal
  end;

Hab es schon mit einem Semikolon hinter MainForm.FormStyle := fsStayOnTop versucht aber da schimpft der Compiler mit mir...

Ich komm echt nicht drauf

Danke im Voraus!

MfG Florian

[Daniel B]

Hallo,

probiers mal so:

Delphi-Quellcode:

procedure TMainForm.stayontop(Sender: TObject); 
begin 
  if Stay.Checked = true then 
  begin
    MainForm.FormStyle := fsStayOnTop; 
    Help.FormStyle := fsStayOnTop;
  end 
  else 
  begin
    MainForm.FormStyle := fsNormal; 
    Help.FormStyle := fsNormal; 
  end;
end;

Grüsse, Daniel

[flomei]

Danke! So geht es gut.

Wie dumm...

MfG Florian