Deutsches Lazarusforum

peinlich, peinlich, ich glaube ich habe die Lösung schon gefunden, und sie ist ganz einfach:

Man darf

UniqueInstance1.Enabled:=true;

nicht in einem Event setzen, sondern es muss im Objektinsspector eingetragen sein.

Sorry, vielleicht kann ich den ganzen Eintrag irgendwie löschen.

Vielen ...

Hallo allerseits,

ich habe das Problem, dass bei mir UniqueInstance nicht wirkt. Ich verwende Lazarus 2.0.12 (x86_64-win64-win32/win64) unter Windows 10. Mein Test-Programm besteht lediglich aus dem Deponieren von UniqueInstance1 aus der Kathegorie System auf die Oberfläche. Zusätzlich habe ich im ...

peinlich, aber ich hab's gefunden, es muss ganz einfach heissen
procedure TMemoTestFrm.Memo1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
Msg : tagMSG;
Key : Word;
begin

if WheelDelta > 0
then Key := VK_UP
else Key := VK ...

Hallo,

ich möchte gerne bei einem MouseWheel-Ereignis in einem Memo-Feld das Drehen des Maus-Rades in ein VK_UP bzw. VK_DOWN Ereignis umwandeln. Dazu habe ich geschrieben:

procedure TMemoTestFrm.Memo1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var ...