{"id":189,"date":"2007-05-12T16:50:29","date_gmt":"2007-05-12T14:50:29","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/eastereggs\/"},"modified":"2007-05-12T16:50:30","modified_gmt":"2007-05-12T14:50:30","slug":"eastereggs","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/eastereggs\/","title":{"rendered":"EasterEggs"},"content":{"rendered":"

>
\n> How to capture ALT+T E A M in a about box?
\n>
\n<\/em>
\nHi … Set the form’s KeyPreview property to True and then write the
\nfollowing code :
\n<\/p>\n

[code lang=”delphi”]var
\n Form1: TForm1;
\n Text2 : String; \/\/ Global string.<\/p>\n

implementation<\/p>\n

{$R *.DFM}<\/p>\n

procedure TForm1.FormCreate(Sender: TObject);
\nbegin
\n Text2 := EmptyStr;
\nend;<\/p>\n

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
\n Shift: TShiftState);
\nbegin
\n if ssAlt in Shift then
\n begin
\n if Pos(Text2 + UpCase(Chr(Key)), ‘TEAM’) > 0 then
\n begin
\n Text2 := Text2 + UpCase(Chr(Key ));
\n end
\n else
\n begin
\n Text2 := UpCase(Chr(Key ));
\n end;
\n if Text2 = ‘TEAM’ then
\n begin
\n Text2 := EmptyStr;
\n \/\/ from here, you can write anything you’d like to be done …
\n ShowMessage(‘Easter Egg!!’);
\n end;
\n end;
\nend;<\/p>\n

end.
\n[\/code]<\/p>\n

[tags]Delphi, Misc, Keyboard[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

> > How to capture ALT+T E A M in a about box? > Hi … Set the form’s KeyPreview property to True…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,111,107],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-33","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/189"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=189"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/189\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=189"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=189"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=189"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}