Mam taki kod:
procedure TMainForm.FormCreate(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
//znajduje nazwę i uchwyt do TaskBar'a Windozy
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
shCombo := TComboBox.Create(Nil);
shCombo.ParentWindow := wndHandle;
shCombo.OnChange := ComboChange;
//Pozycja pod paskiem Start
shCombo.Top := 35;
shCombo.Left := 5;
shCombo.Width := 96;
shCombo.Height := 21;
shCombo.Visible := True;
shCombo.AutoComplete := True;
shCombo.AutoDropDown := TRue;
shCombo.Font.Name := 'Courier New';
shCombo.Items.Add(':Koniec');
shCombo.Show;
end;
I wszystko gudi tworzy mi Combobox'a...
ale ta procedura już nie chce działać. Program powinien się zamknąć jak klinke na :Koniec ale nic się nie dzieje
procedure TMainForm.ComboChange(Sender: TObject);
begin
If shCombo.ItemIndex = 0 Then Application.Terminate;
end;
Gdzie tu jest błąd, lub co ja źle robię??
Pozdraiwam...
[Dopisane]
Ni nie działa... Ani w onChange ani za pomocą indexów...<font color="blue"></span>