Tja, ich möchte ja das er einen Message dialog anzeigt wenn man 0 ausgewählt hat,
aber wenn man irgednwas zwischen 1
bis 255 ausgewählt hat soll sich einfach die Form schließen...
Delphi-Quellcode:
procedure TForm4.TrackBar1Change(Sender: TObject);
begin
form1.alphablendvalue:=trackbar1.Position;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
if TrackBar1.Position=1 then Form4.Close;
if TrackBar1.Position=2 then Form4.Close;
if TrackBar1.Position=3 then Form4.Close;
if TrackBar1.Position=4 then Form4.Close;
//...das müsste ich dann bis 255 weitermachen...deswegen wollte ich nen Array
if TrackBar1.Position=0 then if (MessageDlg('Wollen Sie das Programm wirklich unsichtbar machen?', mtWarning, [mbYes, mbNo], 0) in [mrYes, mrNone]) then Form4.Close;
end;