AlphaBlendValue und TrackBar

[mOzZzI]

Hai,
ich möchte, wenn man mit einer TrackBar die Transparenz der Form auswählt, einen MessageDialog schreiben, in dem gefragt wird, wenn bei der TrackBar die AlphaBlendValue auf 0% ist, ob man die Form unsichtbar lassen will. Wenn das Statement YES ist soll die Form geschlossen werden, wenn NEIN das Statement ist soll der MessageDialog verschwinden...
Das hab ich bis jetzt hingebracht,

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
 var i: Integer;
  begin
    for i:= 1 to 255 do begin
    if TrackBar1.Position= i then Form4.Close;
    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;
 end;

Was passt hier dran nicht??

[Matze]

Wozu hast du denn die for-Schleife drin? :gruebel:

[mOzZzI]

Zitat:

Zitat von Matze

Wozu hast du denn die for-Schleife drin? :gruebel:

Naja das, wenn man, 0% ausgewählt hat soll der MessageDialog kommen, und wenn von 1 - 255 ausgewählt wurde dann
soll die Form geschlossen werden...

[Matze]

Wie wäre es dann mit Code wie:

Delphi-Quellcode:

if TrackBar.Position = 0 then
begin
  // ...
end else
  // ...
end;

Hui, 6000. Beitrag ^^

[mOzZzI]

Und wie soll ich dann das mit 1 - 255 realisieren?

[Matze]

Zitat:

Zitat von mOzZzI

Und wie soll ich dann das mit 1 - 255 realisieren?

Ich nehme an, deine Trackbar geht von 0 - 255, wo liegt dann das Problem?

[mOzZzI]

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;

[Matze]

Genau das macht mein Code-Schnipsel doch. Ich kommentiere ihn mal:

Delphi-Quellcode:

if TrackBar.Position = 0 then
begin
  // Wenn 0 Ausgewählt wurde
  // Hier der Code, zum Anzeigen des Dialoges
end else
  // Wenn nicht 0 ausgewählt wurde (logischerweise wurde dann 1 - 255 gewählt)
  // Hierhin gehört dann der Code zum Schließen des Formulares.
end;

[mOzZzI]

oh sry,
stimmt ja :wall:
Man ist halt doch schon zu spät zum Proggen... :roll: