Как сделать чтоб не спамило ?)

[dyh9l]

var
Main : Tform;
combo : TComboBox;
procedure Init; //Вызывается при включении скрипта
begin
Main := TForm.Create(nil);
Main.BorderStyle := bsSizeable;
Main.Position := poDesigned;
Main.Color := clLime;
Main.Left :=1082;
Main.Top :=0;
Main.Width :=200;
Main.Height :=990;

combo := TComboBox.Create(Main);
combo.Parent := Main;
combo.Left := 0;
combo.Top := 0;
combo.Width := 100;
combo.Height := 17;
combo.Name := 'cbTwinks'; // имя элемента, по которому мы потом будем обращаться к нему

combo.Items.Clear;
combo.Items.Add('НикТвинка1');
combo.Items.Add('НикТвинка2');
combo.Items.Add('НикТвинка3');

Main.show;
end;

procedure test;
begin
sendmsg('что-то выбрано');
end;
begin
if combo.itemindex > -1 then test;
end.
sendmsg('что-то выбрано'); - много много спамит)

[Nickers]

"Что-то выбранно" спамит?
Я конечно нуб но может поставить переменную булиан
Var
Stop:boolean
и добавить:
begin
if (combo.itemindex > -1) and (Stop) then test;
begin
test;
Stop:=false;
end;
end.

Или переменную combo.itemindex после выполнения if'a делать меньше -1го (Но это плохой вариант)

[dyh9l]

все ) тема разобрана)