Einzelnen Beitrag anzeigen

_BlackDragon_

Registriert seit: 4. Dez 2007
Ort: Eschweiler
64 Beiträge
 
#2

Re: eigenes Icon in Standarddialogen

  Alt 12. Mär 2009, 18:50
Hi,

jo, das geht. Dafür musst du den Dialog erzeugen, das Icon zuweisen und was du sonst noch brauchst und
dann anzeigen.

Delphi-Quellcode:

procedure TForm1.ShowCustomDialog;
var
  dlg: TForm;
  myIcon: TIcon;
begin
  
  // myIcon erzeugen und Bild laden
  myIcon := TIcon.Create;
  try
    myIcon.LoadFromFile('C:\icon\myIcon.bmp'); // bin mir nicht sicher obs auch für bmp's funzt

    dlg := CreateMessageDialog('', mtCustom, [mbYes], mbYes); // oder was auch immer du brauchst.
    try
      dlg.Icon := myIcon;
      dlg.ShowModal;
    finally
      FreeAndNil(dlg);
    end;
  finally
    FreeAndNil(myIcon);
  end;
end;
Das ist nur hingekleckert und ungetestet, soll ja auch nur den ungefären Ablauf erklären.

Weitere Infos findest du in der Hilfe "CreateMessageDialog" und in der Unit Dialogs, welche du übrigens auch einbinden musst.

Gruss

BlackDragon
  Mit Zitat antworten Zitat