Ĺadny brzuch
Witam. Zaznaczam, że podstawowe zasady tego forum zostały spełnione. Mam dwa pytania:
1. Otóż chcę aby w moim programie (odtwarzacz video) okno video było doklejone do okna panelu sterowania aplikacji i nie wiem jak to uczynić. Komunikatami czy co?
2. Jak można po kliknięciu na wybrany klawisz realizować jednocześnie zdarzenia onclick i Mouse Up& Down? :(
Witam. Zaznaczam, że podstawowe zasady tego forum zostały spełnione. Mam dwa pytania:
1. Otóż chcę aby w moim programie (odtwarzacz video) okno video było doklejone do okna panelu sterowania aplikacji i nie wiem jak to uczynić. Komunikatami czy co?
2. Jak można po kliknięciu na wybrany klawisz realizować jednocześnie zdarzenia onclick i Mouse Up& Down? :( 1. http://forum.ks-eksp...showtopic=49989
2. Prawidłowo się domyślam, że chodzi Ci o przesuwanie formy mychą? :> http://forum.ks-eksp...ndpost&p=405859
Za pierwszą podpowiedź thx, ale może niesprecyzowałem dokładnie to drugie pytanie:
Po naciśnięciu np. klawisza Enter, chcę jednocześnie wykonać trzy procedury SpeedButton.onclick, onmousedown oraz onmouseup :mellow:
Chcesz, aby onmousedown i onmouseup były wykonywane, tylko w przypadku naciśnięcia ENTER-a? Czy jeszcze nie to? W końcu onmousedown i onmouseup są zdarzeniami, a nie prockami :P
Użytkownik Cyrkiel edytował ten post 01 styczeń 2006, 21:16
Za pierwszą podpowiedź thx, ale może niesprecyzowałem dokładnie to drugie pytanie:
Po naciśnięciu np. klawisza Enter, chcę jednocześnie wykonać trzy procedury SpeedButton.onclick, onmousedown oraz onmouseup :mellow:
SpeedButton1.onclick(self); SpeedButton1.onmousedown(self); SpeedButton1.onmouseup(self);
Tylko , że (Self) w tym przypadku działać nie chce!
To zmien na np. SpeedButton1 <_<
Wywala błąd, że brakuje mu aktualnych parametrów...
SpeedButton1.onclick(nil); SpeedButton1.onmouseup(nil,mbLeft,[],0,0); SpeedButton1.onmousedown(nil,mbLeft,[],0,0);??
Przy kompilacji błędy już nie występują , ale w trakcie działania programu procedury onmousedown & Up są niewykonywane(nie widać skutków ich działania)!
Przy kompilacji błędy już nie występują , ale w trakcie działania programu procedury onmousedown & Up są niewykonywane(nie widać skutków ich działania)!
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_Return : sbPlayClick(Self); VK_Space : sbPauseClick(Self); VK_Escape : sbFullNormalScreenClick(Self); VK_Control : sbStopClick(Self); VK_Left : begin sbRewind.onclick(Self); sbRewind.onmousedown(nil,mbLeft,[],0,0); sbRewind.onmouseup(nil,mbLeft,[],0,0); end; VK_Right : sbFastForwardClick(Self); end; end;
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Sorry, małe niedopatrzenie:
procedure TMainForm.sbRewindMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case FilterGraph.State of gsPlaying : lblActionStatus.Caption := 'REW'; gsPaused : lblActionStatus.Caption := 'PAUSE'; gsStopped : lblActionStatus.Caption := 'STOP'; end; end; procedure TMainForm.sbRewindMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case FilterGraph.State of gsPlaying : lblActionStatus.Caption := 'PLAY'; gsPaused : lblActionStatus.Caption := 'PAUSE'; gsStopped : lblActionStatus.Caption := 'STOP'; end; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Otóż chcę aby w moim programie (odtwarzacz video) okno video było doklejone do okna panelu sterowania aplikacji i nie wiem jak to uczynić. Komunikatami czy co?
2. Jak można po kliknięciu na wybrany klawisz realizować jednocześnie zdarzenia onclick i Mouse Up& Down? :(
Witam. Zaznaczam, że podstawowe zasady tego forum zostały spełnione. Mam dwa pytania:
1. Otóż chcę aby w moim programie (odtwarzacz video) okno video było doklejone do okna panelu sterowania aplikacji i nie wiem jak to uczynić. Komunikatami czy co?
2. Jak można po kliknięciu na wybrany klawisz realizować jednocześnie zdarzenia onclick i Mouse Up& Down? :( 1. http://forum.ks-eksp...showtopic=49989
2. Prawidłowo się domyślam, że chodzi Ci o przesuwanie formy mychą? :> http://forum.ks-eksp...ndpost&p=405859
Za pierwszą podpowiedź thx, ale może niesprecyzowałem dokładnie to drugie pytanie:
Po naciśnięciu np. klawisza Enter, chcę jednocześnie wykonać trzy procedury SpeedButton.onclick, onmousedown oraz onmouseup :mellow:
Chcesz, aby onmousedown i onmouseup były wykonywane, tylko w przypadku naciśnięcia ENTER-a? Czy jeszcze nie to? W końcu onmousedown i onmouseup są zdarzeniami, a nie prockami :P
Użytkownik Cyrkiel edytował ten post 01 styczeń 2006, 21:16
Za pierwszą podpowiedź thx, ale może niesprecyzowałem dokładnie to drugie pytanie:
Po naciśnięciu np. klawisza Enter, chcę jednocześnie wykonać trzy procedury SpeedButton.onclick, onmousedown oraz onmouseup :mellow:
SpeedButton1.onclick(self); SpeedButton1.onmousedown(self); SpeedButton1.onmouseup(self);
Tylko , że (Self) w tym przypadku działać nie chce!
To zmien na np. SpeedButton1 <_<
Wywala błąd, że brakuje mu aktualnych parametrów...
SpeedButton1.onclick(nil); SpeedButton1.onmouseup(nil,mbLeft,[],0,0); SpeedButton1.onmousedown(nil,mbLeft,[],0,0);??
Przy kompilacji błędy już nie występują , ale w trakcie działania programu procedury onmousedown & Up są niewykonywane(nie widać skutków ich działania)!
Przy kompilacji błędy już nie występują , ale w trakcie działania programu procedury onmousedown & Up są niewykonywane(nie widać skutków ich działania)!
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_Return : sbPlayClick(Self); VK_Space : sbPauseClick(Self); VK_Escape : sbFullNormalScreenClick(Self); VK_Control : sbStopClick(Self); VK_Left : begin sbRewind.onclick(Self); sbRewind.onmousedown(nil,mbLeft,[],0,0); sbRewind.onmouseup(nil,mbLeft,[],0,0); end; VK_Right : sbFastForwardClick(Self); end; end;
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Sorry, małe niedopatrzenie:
procedure TMainForm.sbRewindMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case FilterGraph.State of gsPlaying : lblActionStatus.Caption := 'REW'; gsPaused : lblActionStatus.Caption := 'PAUSE'; gsStopped : lblActionStatus.Caption := 'STOP'; end; end; procedure TMainForm.sbRewindMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case FilterGraph.State of gsPlaying : lblActionStatus.Caption := 'PLAY'; gsPaused : lblActionStatus.Caption := 'PAUSE'; gsStopped : lblActionStatus.Caption := 'STOP'; end; end;