[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

Hallo,

probiers mal so:

zusammenfalten · markieren

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

Daniel B (Gast) n/a Beiträge	#2 15. Jun 2003, 21:16 Hallo, probiers mal so: zusammenfalten · markieren 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
	Zitat

flomei Registriert seit: 17. Jan 2003 Ort: Schieder-Schwalenberg 2.094 Beiträge Delphi 2005 Personal	#3 15. Jun 2003, 21:19 Danke! So geht es gut. Wie dumm... MfG Florian Florian Meier ... ist raus. Vielen Dank für die Zeit mit euch! http://www.flomei.de -- http://www.md5hash.de
	Zitat

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

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

Forumregeln