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

[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]

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