Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

[Sunlight7]

Zitat von ACE-ppc:

Hab es jetzt für mich so gelöst:

Delphi-Quellcode:

  if temp > 0 then
    begin
      if (ShowHint) and (FHintList.Count >= temp) then
        ChangeHint(FHintList[temp])
      else
        ChangeHint('');

      if Assigned(FOnMouseMove) then
        FOnMouseMove(Self, temp, Shift, X, Y);
    end
  else
    ChangeHint('');

Warum so umständlich?
Es hätte genügt, das "="-Zeichen raus zu nehmen, das war der Fehler

Zitat von ACE-ppc:

Ich werde mal sehen ob ich noch ne Eigenschaft Selected(oder Button down) dazubekomme.

Was meinst Du damit "dazubekomme"?
Du bräuchtest da nur MousePressed und LastBtn, einer Eigenschaft zuweisen

Edit: Das mit dem Disabled hab ich eingebaut, aber wie ich das in den Objekt Inspektor rein bringen soll weiß ich noch nicht.