![]() |
Checkbox zur unterscheiung von Anzeigeflächen
Delphi-Quellcode:
Die aufgabe dieser Zeilen soll darin bestehen: wenn ein häkchen in der checkbox ist, sieht man sowohl die mini-ansicht, als auch die vergrößerte, ist kein häkchen da, dann wird nur die mini ansicht gezeigt.
procedure TForm1.Image1Click(Sender: TObject);
begin if checkbox.Checked then image1.Picture.LoadFromFile('C:\bsp.jpg') grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt else image1.Picture.LoadFromFile('C:\bsp.jpg'); end; 1. eigentlich gehört doch da kein simikolon hin, da die if procedure noch nicht abgeschlossen ist, kann mir jmd sagen was das für ein operator sein soll? 2.ist das mit checkbox.checked so richtig? dachte da müsste was von true stehen, aber habs in nem anderen thema so gesehen |
AW: Checkbox zur unterscheiung von Anzeigeflächen
Delphi-Quellcode:
Aber da Du ja in beiden Fällen Image1 befüllst, kannst Du das auch kürzen:
procedure TForm1.Image1Click(Sender: TObject);
begin if checkbox.Checked then begin // <---- fehlt image1.Picture.LoadFromFile('C:\bsp.jpg') grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt end //<----- fehlt auch else image1.Picture.LoadFromFile('C:\bsp.jpg'); end;
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin image1.Picture.LoadFromFile('C:\bsp.jpg'); if checkbox.Checked then grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg'); end; |
AW: Checkbox zur unterscheiung von Anzeigeflächen
und nun schon zum 2.mal hilfst du mir weiter
diesmal hast du das problem in bahnbrechender rekordzeit gelöst^^ auf die sache mit dem begin und end hätte ich auch selbst kommen müssen -.- vielen dank für die schnelle hilfe edit: leider verschwindet das bild nun nicht erh aus der vergrößerten ansicht, wenn ich erneut auf image1 klicke |
AW: Checkbox zur unterscheiung von Anzeigeflächen
:?: Meinst Du so?
Delphi-Quellcode:
Getippt und nicht getestet.
if checkbox.Checked then
grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') else grossansicht_img.Picture.Assign(nil); |
AW: Checkbox zur unterscheiung von Anzeigeflächen
respekt, reife leistung, ich kannte den befehl zwar noch nicht, aber du bist blitz schnell^^
hat funktioniert nochmals danke |
AW: Checkbox zur unterscheiung von Anzeigeflächen
Eine IF-Anweisung darf nicht mit einem ; abgeschlossen sein, wenn ein ELSE folgt.
Also nach dem "EINEN" Befehl darf also kein ; stehen, wenn direkt das ELSE folgt. Bei mehreren Befehlen müssen diese in ein BEGIN-END, wobei das END, wegen dem ELSE natürlich nicht mit ; abgeschlossen wird, aber hinter die Befehle innerhalb des BEGIN-END gehört ein ; , da diese Befehle ja abgeschlossen/fertig sind. Zitat:
|
AW: Checkbox zur unterscheiung von Anzeigeflächen
Wenn ich nicht wüsste, was Du meinst, hätte ich jetzt kein Wort verstanden. :lol:
|
AW: Checkbox zur unterscheiung von Anzeigeflächen
Der Vollständigkeit halber
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin if checkbox.Checked then begin // <---- fehlt image1.Picture.LoadFromFile('C:\bsp.jpg'); // <--- Das Semikolon hat auch noch gefehlt grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt end //<----- fehlt auch else image1.Picture.LoadFromFile('C:\bsp.jpg'); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz