if befehl - problem

[Wadim]

hi,

hab da folgendes problem - wenn ich auf den speedbutton 27 klicke (und er ist dann auch down) und dann speenbutton1 klicke erscheint das dialog nicht, kann mir mal einer helfen??

hier der code:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
If Speedbutton26.Down then
  begin
  IF OpenPictureDialog1.Execute THEN
    begin
    speedbutton33.Glyph.LoadFromFile(OpenPictureDialog1.FileName);
    end
    else
    If Speedbutton27.Down then
      IF OpenPictureDialog1.Execute THEN
      speedbutton18.Glyph.LoadFromFile(OpenPictureDialog1.FileName);
    end;
end;

danke

[Nightshade]

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
If Speedbutton26.Down then 
  begin 
  IF OpenPictureDialog1.Execute THEN 
    begin 
    speedbutton33.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
    end 
    else 
    begin  //  <--- Hier fehlt das Begin !!!!!!!!!!!!!!!!!!
    If Speedbutton27.Down then 
      IF OpenPictureDialog1.Execute THEN 
      speedbutton18.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
    end; 
end;

-----------------

Nightshade

[Wadim]

Zitat:

Zitat von Nightshade

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
If Speedbutton26.Down then 
  begin 
  IF OpenPictureDialog1.Execute THEN 
    begin 
    speedbutton33.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
    end 
    else 
    begin  //  <--- Hier fehlt das Begin !!!!!!!!!!!!!!!!!!
    If Speedbutton27.Down then 
      IF OpenPictureDialog1.Execute THEN 
      speedbutton18.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
    end; 
end;

-----------------

Nightshade

geht noch immer nicht?? :shock: ??

[nailor]

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
If Speedbutton26.Down then 
  begin 
    IF OpenPictureDialog1.Execute THEN 
      begin 
        speedbutton33.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
      end 
  end //<---daaaaaaaaa  
else 
If Speedbutton27.Down then 
  begin
    IF OpenPictureDialog1.Execute THEN 
      begin
        speedbutton18.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
      end;
  end; 
end;

-----------------

nailor's versuch

[Niels]

Moin!

Wenn du einfach das begin in Zeile 6 und das end in Zeile 13 weg lässt, müsste auch alles funzen.

MfG Niels

[Wadim]

:thuimb: THX