Delphi Access Violation, TSpeedButton

Thema durchsuchen

Ansicht

Themen-Optionen

Access Violation, TSpeedButton

Ein Thema von shareholder · begonnen am 7. Jun 2004 · letzter Beitrag vom 7. Jun 2004

Vorheriger Beitrag

Nächster Beitrag

shareholder

Registriert seit: 1. Nov 2003
Ort: Denmark, Lolland, Marielyst
280 Beiträge

Delphi 7 Enterprise

Access Violation, TSpeedButton

7. Jun 2004, 14:47

Wenn ich ganz viele Schnelle Klicks mache gibt es eine Access Violation.

Hier der Code:

markieren

Delphi-Quellcode:

			procedure TForm1.BtnMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  if (ssRight in Shift) then

    if (TSpeedButton(Sender).Glyph.Empty = TRUE) then

      TSpeedButton(Sender).Glyph.LoadFromFile('bild.bmp')

    else

      ShowMessage('hat schon ein bild!');

end;