How to Create a Piano in Delphi
How to Create a Piano in Delphi using TPanel. See the complete code below for the C note.
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, MMSystem, Vcl.MPlayer;
type
TForm1 = class(TForm)
panC: TPanel;
procedure panCClick(Sender: TObject);
procedure TForm1.panCClick(Sender: TObject);
begin
sndPlaySound('C:\Users\Member\Documents\Projectl\Delphi_in_Piano\Music\C.wav',
SND_NODEFAULT or SND_ASYNC);
end;
Download Music Notes:
https://drive.google.com/file/d/0B5VO...
Join this channel to get access to codes, perks, and see more interesting videos. / @djoamen
To support more videos from DJ Oamen, visit POamen Paypal
https://www.paypal.me/POamen
To Become a Channel member click on the link below to JOIN:
/ @djoamen
