Rausfinden was ein Button tut

[heiopei]

hallo silent,

wenn du nur die bildschirmauflösung ändern willst dann mach doch folgendes:

leg in einer form vier buttons mit der aufschrift 640x480, 800x600, 1024x768 und 1280x1024 an.
dann schreib diese funktion(über die prozeduren!):

Delphi-Quellcode:

function AnotherScreen(width, height: word): boolean;
var
  lpDevMode: TDeviceMode;
begin
  result := enumDislpaySettings(nil, 0, lpdevMode);
  if result then
  begin
    lpDevMode.demfields := dm_pelswidth or dm_pelsheight;
    lpDevMode.dmpelswidth := width;
    lpDevMode.dmpelsheight := height;
    result := changeDisplaysettings(lpdevmode, cds_updateregistry) = 
    disp_change_successful;
  end;
end;

wenn auf den jeweiligen button gedrückt wird, wird die bildschirmauflösung geändert:

[/delphi]
procedure button1click(sender: tobject);
begin
anotherscreen(640, 480);
end;
[/delphi]

tschüss,
heiopei