Текущий архив: 2008.04.27;
Скачать: CL | DM;
Вниз
Можно ли как-то централизованно обработать клик на контролах? Найти похожие ветки
← →
Kolan © (2008-04-01 18:24) [0]Здравствуйте,
Мне нужно проигрывать звук (например стандартный клик) при клике на любой контрол. Точнее при любом, так сказать, удавшемся клике.
То есть например при клике на не активный контрол, звука не должно быть.
Может можно как-тонастроить саму систему? Этот вариант тоже подойдет.
← →
Ega23 © (2008-04-01 18:35) [1]
> То есть например при клике на не активный контрол, звука
> не должно быть.
AFAIK, когда ты кликаешь на неактивном контроле, он становится активным.
← →
Kolan © (2008-04-01 18:39) [2]> AFAIK, когда ты кликаешь на неактивном контроле, он становится
> активным.
Ну на Enabled := False я кликну, что он станет активным?
Тем более что:procedure TWinControl.CMEnabledChanged(var Message: TMessage);
begin
if not Enabled and (Parent <> nil) then RemoveFocus(False);
…
← →
AIK © (2008-04-01 19:18) [3]
> Мне нужно проигрывать звук (например стандартный клик) при
> клике на любой контрол
MessageBeep(0);
← →
Ega23 © (2008-04-01 19:19) [4]
> Ну на Enabled := False я кликну, что он станет активным?
А на Enabled := False - ты и не кликнешь... :)
← →
{RASkov} © (2008-04-01 19:22) [5]> [0] Kolan © (01.04.08 18:24)
> Можно ли как-то централизованно обработать клик на контролах?
Попробуй нечто это или возьми за идею:TForm1 = class(TForm)
...............
private
ListEvent: TStringList;
procedure Clk(Sender: TObject);
.........
end;
........
implementation
....
procedure TForm1.Clk(Sender: TObject);
var N: Integer; P: TNotifyEvent;
begin
N:=ListEvent.IndexOf((Sender as TControl).Name);
Beep;
if N>=0 then begin
P:=nil;
@P:=ListEvent.Objects[N];
if Assigned(P) then P(Sender);
ShowMessage((Sender as TControl).Name);
end;
end;
type THControl = class(TControl);
procedure TForm1.FormCreate(Sender: TObject);
var N: Integer;
begin
ListEvent:=TStringList.Create;
for N:=0 to ComponentCount-1 do
if Components[N] is TControl then begin
if Assigned(THControl(Components[N]).OnClick) then
ListEvent.AddObject(THControl(Components[N]).Name, @THControl(Components[N]).OnClick);
THControl(Components[N]).OnClick:=Clk;
end;
end;
Может и не совсем то.... а может и совсем не то.... но фик знает... сильно не думал :)
← →
AIK © (2008-04-01 19:44) [6]А еще есть такой прикольный:
Windows.Beep(1000, 100)
встречался еще с такимPlaySound(user mmSystem) но незнаю как его заставить работать, может кто подскажет
← →
Ega23 © (2008-04-01 19:49) [7]
> встречался еще с таким PlaySound (user mmSystem) но незнаю
> как его заставить работать, может кто подскажет
procedure TAlarmDispatcherModule.PlaySound(const Action: Boolean);
var
fn : string;
begin
if Action then
begin
if FAlarmList.Count =0 then Exit;
if FSoundPlaying then Exit;
fn := configurator.KdrParams.ParamValueByNameDef("ExeFileDir", "") + "Res\Alarm.wav";
if not FileExists(fn) then Exit;
sndPlaySound(PChar(fn), SND_ASYNC or SND_LOOP);
FSoundPlaying := True;
end
else
begin
if FSoundPlaying then
begin
sndPlaySound(nil, 0);
FSoundPlaying := False;
end;
end;
end;
← →
{RASkov} © (2008-04-01 19:54) [8]> [6] AIK © (01.04.08 19:44)
> встречался еще с таким PlaySound (user mmSystem) но незнаю
> как его заставить работать, может кто подскажет
Тут например что-то было с использованием PlaySound
http://delphimaster.net/view/2-1206947384/
Что конкретно не получается? Впрочем свой вопрос задай отдельно, а не влазь в чужой :)
Страницы: 1 вся ветка
Текущий архив: 2008.04.27;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.016 c
