Entwickler-Ecke
Multimedia / Grafik - Wie kann ich durch LabelClick Auflösung ändern?
Delphi7 - Mi 08.10.03 14:43
Titel: Wie kann ich durch LabelClick Auflösung ändern?
Hallo
Den Code habe ich zum ändern der Auflösung. Aber ich will es so machen. Wenn ich auf Label14 klicke soll sich die Auflösung ändern.
Der Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| function change_resolution(Width, Height: word): boolean;
var lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then begin
lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := 1024;
lpDevMode.dmPelsHeight := 768;
Result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL;
end;
end; |
So kann man da irgendetwas machen das sich die Auflösung durch ein LabelClick ändert?
Thanks........
Moderiert von 
Tino: Delphi-Tags hinzugefügt.
smiegel - Mi 08.10.03 14:46
Hallo,
ein Label besitzt das Ereignis OnClick. In diesem Ereignis rufst Du Deine Funktion auf.
Warum nimmst Du nicht einen Button? Wäre doch logischer?
Delphi7 - Mi 08.10.03 16:27
logisch ist logisch.
(Wenn ich ein project erstelle sorge ich immer für gutes design.
button passt zu mein project nicht deshalb eine label benutzen)
ich weiß das man bei onclick auch was einfügen kann. aber der den ich hier oben hin geschrieben habe fäng mit function an und function darf ja nie nach procedure stehen also muss der code oben nach der zeile
Delphi-Quelltext
1:
2:
3:
4:
5:
| implementation
uses Unit2, Unit3;
{$R *.dfm} |
hier eingefügt werden.
naja trotzdem danke. delphi
Moderiert von Tino: Delphi-Tags hinzugefügt.
smiegel - Do 09.10.03 10:19
Hallo,
ich verstehe Deine Antwort nicht!?!?
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Label1Click(Sender:TObjekt);
begin
if change_resolution(800, 600) then ShowMessage('Alles klar!')
else ShowMessage('... konnte Auflösung nicht ändern ...');
end; |
Wo ist jetzt das Problem?
Delphi7 - Do 09.10.03 14:02
moin,
danke man. weißt du der code der oben steht den habe ich von der delphi-library. ok nochmals danke!
delphi.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!