Ĺadny brzuch
Potrzebuje pomocy. Mam taki oto kod: procedure TVideoForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
13 : MainForm.sbPlay.Click;
32 : MainForm.sbPause.Click;
27 : MainForm.sbFullNormalScreen.Click;
16 : MainForm.sbStop.Click;
end;
end;
W MainForm ta procedura działa, ale w drugiej formie ( VideoForm) już nie, mimo, że w obu formach KeyPreview := True. Wie ktoś dlaczego? :(
Potrzebuje pomocy. Mam taki oto kod: procedure TVideoForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of 13 : MainForm.sbPlay.Click; 32 : MainForm.sbPause.Click; 27 : MainForm.sbFullNormalScreen.Click; 16 : MainForm.sbStop.Click; end; end; W MainForm ta procedura działa, ale w drugiej formie ( VideoForm) już nie, mimo, że w obu formach KeyPreview := True. Wie ktoś dlaczego? :(
I na pewno dodałeś w drugiej formie do uses powiązanie z pierwszą formą, żeby można się było odwoływać do MainForm?
I na pewno dodałeś w drugiej formie do uses powiązanie z pierwszą formą, żeby można się było odwoływać do MainForm?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Potrzebuje pomocy. Mam taki oto kod: procedure TVideoForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of 13 : MainForm.sbPlay.Click; 32 : MainForm.sbPause.Click; 27 : MainForm.sbFullNormalScreen.Click; 16 : MainForm.sbStop.Click; end; end; W MainForm ta procedura działa, ale w drugiej formie ( VideoForm) już nie, mimo, że w obu formach KeyPreview := True. Wie ktoś dlaczego? :(
I na pewno dodałeś w drugiej formie do uses powiązanie z pierwszą formą, żeby można się było odwoływać do MainForm?
I na pewno dodałeś w drugiej formie do uses powiązanie z pierwszą formą, żeby można się było odwoływać do MainForm?