Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
6. Aug 2005
Das hängt immer auch davon ab, was du eigentlich an den betreffenden Stellen vorhast. Wenn in allen Fällen ähnliches Verhalten realisiert werden soll, ist es manchmal doch praktischer den Eventhandler zentral zu überschreiben. Wie immer: alles relativ und im Einzelfall zu sehen. :lol:
Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
5. Aug 2005
Hier wie versprochen der Kram den wir vorhin im Chat besprochen haben. Ich hab noch mal alles was ich an Code vorhin übern Chat gejagt hab zusammengefasst. Aber: untested.
type TMyButton = class(TButton)
private
FWasClicked: boolean;
function GetWasClicked: boolean;
procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
public
...
Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
5. Aug 2005
Da bin ich jetzt mal gerade reingegangen
Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
5. Aug 2005
Keine Ahnung hab das noch nicht ausprobiert. Aber ich war hier schon mal in so nem komischen Chatroom. Idee wo man sonst hingehen könnte?
Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
4. Aug 2005
Hmmm...also jetzt hast du mich vollkommen verwirrt... :wiejetzt:
Der Sinn der ganzen Sache erschließt sich mir immer noch nicht ganz. Aber ich werd mal da weiterhelfen wo ich kann :)
Aha. Das ist aber doch mit boolean noch einfacher, oder? Dann muss der Benutzer nämlich nur noch prüfen, ob das true oder false ist. Geht bei Delphi sogar mit verkürzter Syntax! Also statt
if...
Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
3. Aug 2005
Hi VT-DA
Tja... Das ist leider nicht mein Typ, der gehört zum Lieferumfang von Delphi. Du hast mich auch ein wenig missverstanden. Damit kannst du nicht prüfen, OB der Button gedrückt wurde. Stattdessen erzeugst du quasi einen "künstlichen" Klick. Der Parameter der fehlt, ist der Sender. Funktionieren würde es mit
if OnClick(ButtonArray) = ButtonArray.BHandel then ...
Allerdings haut...
Forum: Win32/Win64 API (native code)
Delphi
by tigerman33,
2. Aug 2005
Hi,
Indem du OnClick aufrufst, überprüfst du nicht, ob der Button geklickt wurde. Stattdessen rufst du den Eventhandler für das Klickereignis des Buttons auf. Auf deutsch: OnClick checkt nicht, ob der Button geklickt wurde, sondern befiehlt ihm, sich so zu benehmen als sei das der Fall. Dem Ereignis OnClick gehört per Deklaration type TNotifyEvent = procedure(Sender: TObject) of object; der...