Merwürdig nur, daß der Compiler sich nicht gleich am zweiten "if" stößt.
Danke
daran lags natürlich^^ Ist mir beim Rumkopieren dummerweise nicht aufgefallen.
Code:
procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssRight in Shift) then
if Feld1 = true then
begin
BitBtn1.Glyph.LoadFromFile('Dateipfad');
Feld1 :=false;
end
else
begin
BitBtn1.Glyph :=nil;
Feld1 :=true;
end;
So gehts jetzt dann doch
Danke!
Delix