Access Violation, TSpeedButton

[shareholder]

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

Hier der Code:

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;

ich hoffe ihr könnt mir sagen warum,
die procedure ist 1200 buttons zugeordnet.

[axelf98]

Zitat:

Zitat von shareholder

die procedure ist 1200 buttons zugeordnet.

Dann hast du wahrscheinlich die Knöpfe kopiert, nachdem du dem "Original" die Prozedur gegeben hast. Dann verweisen nämlich alle anderen auf die gleiche Pozedur.

[shareholder]

nö, die prozedur wurde dynamisch jedem button zugeordnet.

[shmia]

Zitat:

Zitat von shareholder

die procedure ist 1200 buttons zugeordnet.

Das ist ja Waaahnsinn :freak: ; zu viele Knöpfe.
Aber egal:

Delphi-Quellcode:

procedure TForm1.BtnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // zur Sicherheit !!!!!
  // ein "normaler" Button und es knallt
  Assert(sender is TSpeedButton); 
 
  if (ssRight in Shift) then
    with TSpeedButton(Sender).Glyph do
       if Empty then
          LoadFromFile('bild.bmp')
       else
          ShowMessage('hat schon ein bild!');
end;