ich habe mal eine Frage, wie kann ich den Blinder (oder jeden anderen Scheinwerfer) so programmieren, dass er so lange aufleuchtet wie ich einen Rechtsklick auf das entsprechende Symbol im Kontrol-Panel mache?
Vielen Dank schonmal für eure Antworten

Code: Alles auswählen
unit ButtonCode;
interface
procedure ButtonMouseDown;
procedure ButtonMouseUp;
implementation
procedure ButtonMouseDown;
begin
set_channel('{5ED911A3-0341-41D1-96A6-5C8DB910C2A7}', 'DIMMER', 255, 255, 0);
end;
procedure ButtonMouseUp;
begin
set_channel('{5ED911A3-0341-41D1-96A6-5C8DB910C2A7}', 'DIMMER', 0, 0, 0);
end;
end.
ja, der Rechtsklick ist zum Auswählen eines Buttons ohne diesen Auszuführen und bei ausgewähltem Button für das Menü vorgesehen. Da werde ich auch nichts ändern, da es sonst zu unübersichtlich wird. Die Möglichkeit einen Button zu ändern, ohne diesen auszuführen ist da denke ich wichtiger.Aber das funktioniert nur für Links-, nicht Rechtslick, richtig?