Jump to content

Search the Community

Showing results for tags 'subcomponents'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • uniGUI Public
    • Announcements
    • General
    • Feature Requests
    • Installation
    • Deployment
    • Other Platforms
  • Licensing
    • Licensing
    • Ordering uniGUI
  • Bug Reports
    • Active Reports
    • Closed Reports
    • Old Bug Reports
  • uniGUI Development
    • General Development
    • uniGUI Releases & Roadmaps
    • Utilities
  • Mobile Platform
    • uniGUI Mobile
    • Mobile Browsers
  • Users Area
    • Sample Projects
    • Components and Code Samples
    • Third Party Components
  • Non-English
    • Non-English
  • Miscellaneous
    • Hosting
    • Server Security
    • Jobs

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. Hello, i trying to implement a new component Edit with aside button.. And internally already implemented OnClick. But this OnClick method is never called. here is the code : for compile the PLUniPesquisa can be removed... And code of the internal button is here: unit PLUniSeekButton; interface uses SysUtils, Classes, Controls, Buttons, Messages, Windows, Forms, Graphics, uniSpeedButton; type TPLUniSeekButton = class(TUniSpeedButton) public procedure Loaded; override; constructor Create( AOWner : TComponent ); override; published property AutoSize; end; implementation constructor TPLUniSeekButton.Create(AOWner: TComponent); begin inherited Create(AOWner); Name := AOWner.Name+'SubButton'; SetSubComponent(True); Hint := 'Pesquisar <F2>'; Height := 0; Width := 0; caption := '...'; end; procedure TPLUniSeekButton.Loaded; begin inherited; Name := Self.Owner.Name+'SubButton'; if (self.Hint = '') then self.Hint := 'Pesquisar <F2>'; caption := '...'; end; end. Thanks for any help!
×
×
  • Create New...