DELPHI Код:
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('что-то выбрано'); - много много спамит)