RAD Studio VCL Reference
|
Determines which icon represents the application on the Windows task bar.
property Icon: TIcon;
__property TIcon Icon;
Use Icon to assign a specific icon to represent the application. Set the Icon property by either:
Assigning it a TIcon at runtime.
Loading an icon on the Application page of the Project|Options dialog box at design time.
Icon represents the application when it is minimized and appears either on the Windows desktop or task bar.
C++ Examples:
/* The following code allows the user to use a dialog box to redefine the icon for the application at run time. When the user clicks Button1, OpenDialog1 executes and the user specifies an icon filename. The Icon is then assigned to the application. At runtime, click Button1 to select the icon, then minimize the application to see the icon. */ void __fastcall TForm1::Button1Click(TObject *Sender) { OpenPictureDialog1->DefaultExt = GraphicExtension(__classid(TIcon)); OpenPictureDialog1->FileName = GraphicFileMask(__classid(TIcon)); OpenPictureDialog1->Filter = GraphicFilter(__classid(TIcon)); OpenPictureDialog1->Options.Clear(); OpenPictureDialog1->Options << ofFileMustExist << ofHideReadOnly << ofNoChangeDir; while (true) { if (OpenPictureDialog1->Execute()) { if (!OpenPictureDialog1->Options.Contains(ofExtensionDifferent)) { Application->Icon->LoadFromFile(OpenPictureDialog1->FileName); break; } else // reset Options to remove ofExtensionDifferent { OpenPictureDialog1->Options.Clear(); OpenPictureDialog1->Options << ofFileMustExist << ofHideReadOnly << ofNoChangeDir; } } else // user cancelled break; } }
Delphi Examples:
{ The following code allows the user to use a dialog box to redefine the icon for the application at run time. When the user clicks Button1, OpenDialog1 executes and the user specifies an icon filename. The Icon is then assigned to the application. At runtime, click Button1 to select the icon, then minimize the application to see the icon. } procedure TForm1.Button1Click(Sender: TObject); var Done: Boolean; filenamestring : String; begin OpenPictureDialog1.DefaultExt := GraphicExtension(TIcon); filenamestring := GraphicFileMask(TIcon); OpenPictureDialog1.FileName := filenamestring; OpenPictureDialog1.Filter := GraphicFilter(TIcon); OpenPictureDialog1.Options := [ ofFileMustExist, ofHideReadOnly, ofNoChangeDir ]; Done := False; while not Done do begin if OpenPictureDialog1.Execute then begin if not (ofExtensionDifferent in OpenPictureDialog1.Options) then begin Application.Icon.LoadFromFile(OpenPictureDialog1.FileName); Done := True; end else // OpenPictureDialog1.Options := OpenPictureDialog1.Options - ofExtensionDifferent; end else { User cancelled } Done := True; end; end;
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|