Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sharky,
14. Jun 2008
Hai Lostriga,
im Anhang ist ein Demo. Das sollte Licht ins dunkle bringen ;-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sharky,
14. Jun 2008
Da die Tastencodes von F1 bis F9 ja aufeinander folgen muss man doch eigentlich nur den ItemIndex (oder den Tag des RadioButtons) zu dem "Startwert" addieren.
procedure TForm1.Button1Click(Sender: TObject);
var
dwKey: DWord;
begin
if (RadioGroup1.ItemIndex <> -1) then
begin
dwKey := VK_F1 + RadioGroup1.itemIndex; // VK_F1 = 112
myPostMessageA(Hwnd, WM_KEYDOWN, dwKey ,...