https://github.com/hemulgm/vcltaskbartofmx
VCL TaskBar to FMX Application
https://github.com/hemulgm/vcltaskbartofmx
delphi firemonkey fmx taskbar
Last synced: 3 months ago
JSON representation
VCL TaskBar to FMX Application
- Host: GitHub
- URL: https://github.com/hemulgm/vcltaskbartofmx
- Owner: HemulGM
- License: mit
- Created: 2022-08-13T17:56:09.000Z (over 3 years ago)
- Default Branch: main
- Last Pushed: 2022-08-20T13:13:30.000Z (over 3 years ago)
- Last Synced: 2025-02-27T17:36:24.112Z (12 months ago)
- Topics: delphi, firemonkey, fmx, taskbar
- Language: Pascal
- Homepage:
- Size: 129 KB
- Stars: 5
- Watchers: 3
- Forks: 5
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# VCLTaskBarToFMX
Example
```Pascal
uses HGM.TaskBar;
procedure TForm3.FormCreate(Sender: TObject);
begin
FTaskBar := TTaskbar.Create(Self);
FTaskBar.OnThumbButtonClick := FOnThumbClick;
FTaskBar.ProgressState := TTaskBarProgressState.Normal;
FTaskBar.ProgressMaxValue := 100;
FTaskBar.ProgressValue := 32;
FTaskBar.TaskBarButtons.BeginUpdate; //important (lock of update for buttons)
try
with FTaskBar.TaskBarButtons.Add do
begin
Icon.LoadFromFile('image.ico');
Hint := '123';
end;
finally
FTaskBar.TaskBarButtons.EndUpdate;
end;
// call this, if you create buttons dynamicly (update added buttons)
//FTaskBar.Initialize;
//FTaskBar.ApplyButtonsChanges;
end;
procedure TForm3.FOnThumbClick(Sender: TObject; AButtonID: Integer);
begin
ShowMessage(AButtonID.ToString);
end;
```
