Create buttons at run time - Delphi tutorials

Delphi Training Series

Delphi tutorials create buttons at run time

In this video you will see short practical example of creating buttons at run time in Delphi.

Please subscribe for more videos of Delphi examples

[correiogmail]

- Delphi: Execute your APP white parameters.
- Add in onShow Event:

var Ready_Parameter_Enter : String;


begin


Ready_Parameter_Enter := WideCharToString(CmdLine);


If ParamStr(1) = '' Then

Begin

ShowMessage('Your parameter enter is: <None>');

End;



If ParamStr(1) = '-Msg' Then

Begin

ShowMessage('Your parameter enter is: ' + Ready_Parameter_Enter);
ShowMessage('Message: Your Func Here! =D');

End;


If ParamStr(1) = '-wsMinimized' Then

Begin

ShowMessage('Your parameter enter is: ' + Ready_Parameter_Enter);

Form1.WindowState:= wsMinimized;
Sleep(2000);
Form1.WindowState:= wsNormal;

End;


If ParamStr(1) = '-wsMazimized' Then

Begin

ShowMessage('Your parameter enter is: ' + Ready_Parameter_Enter);

Form1.WindowState:= wsMaximized;
Sleep(2000);
Form1.WindowState:= wsNormal;

End;

[chriswterqyer]

Don't think that you understand what "at run time" is - looking for a constructor generated button

[youexpire]

I prefer no music at all. It is disturbing.